File Coverage

blib/lib/Mock/Person/SV.pm
Criterion Covered Total %
statement 6 16 37.5
branch 0 2 0.0
condition n/a
subroutine 2 9 22.2
pod 7 7 100.0
total 15 34 44.1


line stmt bran cond sub pod time code
1             package Mock::Person::SV;
2              
3             =encoding UTF-8
4             =cut
5              
6             =head1 NAME
7              
8             Mock::Person::SV - generate random sets of Swedish names
9              
10             =cut
11              
12             =head1 DESCRIPTION
13              
14             Data for this module was found on these pages:
15              
16             =over
17              
18             =item B
19              
20             L
21              
22             =item B
23              
24             There's usually no distinction between a first and middle name in Sweden.
25              
26             =item B
27              
28             L
29              
30             =back
31              
32             =cut
33              
34 1     1   7646 use strict;
  1         4  
  1         75  
35 1     1   2876 use utf8;
  1         10  
  1         6  
36             our $VERSION = '0.03';
37              
38             my @first_male = my @middle_male = qw(
39             Adam
40             Adolf
41             Adrian
42             Ake
43             Albert
44             Albin
45             Alexander
46             Alfred
47             Algot
48             Alrik
49             Alvar
50             Alvin
51             Ambrosius
52             Andreas
53             Ansgar
54             Anton
55             Aron
56             Artur
57             Arvid
58             Axel
59             Axel
60             Baltasar
61             Bartholomeus
62             Benedikt
63             Benjamin
64             Bertil
65             Birger
66             Björn
67             David
68             Eddy
69             Edvard
70             Edvin
71             Elias
72             Elliot
73             Emil
74             Enar
75             Erik
76             Eskil
77             Eugen
78             Evert
79             Fabian
80             Felix
81             Filip
82             Franz
83             Fredrik
84             Gabriel
85             Georg
86             Goran
87             Greger
88             Gunnar
89             Gustav
90             Halvard
91             Hampus
92             Hans
93             Harald
94             Harry
95             Helmer
96             Henrik
97             Herbert
98             Hermann
99             Hilmar
100             Hjalmar
101             Hugo
102             Ingemar
103             Ingvar
104             Isak
105             Ivar
106             Jakob Jan
107             Jens
108             Jesper
109             Joakim
110             Joel
111             Johan
112             Jonas
113             Jonatan
114             Justus
115             Kalle
116             Karl
117             Kasper
118             Kevin
119             Kjell
120             Klas
121             Konrad
122             Konstantin
123             Kristian
124             Kristofer
125             Larry
126             Lars
127             Leif
128             Lennart
129             Leo
130             Liam
131             Linus
132             Lorens
133             Lorenz
134             Ludvig
135             Lukas
136             Magnus
137             Manfred
138             Mark
139             Markus
140             Matteus
141             Mattias
142             Max
143             Melker
144             Melvin
145             Mikael
146             Natanael
147             Niklas
148             Nikolaus
149             Nils
150             Noah
151             Noak
152             Olaf
153             Oliver
154             Olle
155             Olof
156             Oskar
157             Otto
158             Patrik
159             Paul
160             Peder
161             Per
162             Petter
163             Ragnar
164             Rasmus
165             Rikard
166             Roland
167             Rolf
168             Rune
169             Rurik
170             Rutger
171             Samuel
172             Sebastian
173             Set Sigurd
174             Sigvard
175             Simon
176             Soren
177             Staffan
178             Stefan
179             Sten
180             Stig
181             Sven
182             Tage
183             Teo
184             Thor
185             Tobias
186             Tore
187             Torgny
188             Torkel
189             Torsten
190             Ulf
191             Valentin
192             Valfrid
193             Valter
194             Verner
195             Viggo
196             Viktor
197             Vilhelm
198             Vincent
199             William
200             Yngve
201             );
202              
203             my @first_female = my @middle_female = qw(
204             Agata
205             Agaton
206             Agda
207             Agnes
208             Agneta
209             Aina
210             Alexandra
211             Alice
212             Alicia
213             Alma
214             Alva
215             Amalia
216             Amanda
217             Anna
218             Annalie
219             Annalina
220             Anneli
221             Annika
222             Annike
223             Antonetta
224             Astrid
225             Beata
226             Bengta
227             Berit
228             Berta
229             Birgit
230             Birgitta
231             Blenda
232             Botilda
233             Brigitta
234             Brite
235             Britta
236             Carina
237             Carine
238             Cecilia
239             Christina
240             Cristina
241             Dagmar
242             Ebba
243             Eleonora
244             Elin
245             Elisabet
246             Ella
247             Ellen
248             Ellinor
249             Elsa
250             Emelie
251             Emilia
252             Emma
253             Erika
254             Eva
255             Evelina
256             Felicia
257             Filippa
258             Fredrika
259             Freja
260             Frida
261             Gabriella
262             Gerda
263             Gertrud
264             Gota
265             Gotilda
266             Greta
267             Gudrun
268             Gunilla
269             Gustava
270             Hanna
271             Hedwig
272             Helena
273             Helga
274             Henrika
275             Hilda
276             Hildegard
277             Hulda
278             Ida
279             Inga
280             Ingalill
281             Ingegard
282             Inger
283             Ingrid
284             Isabella
285             Isabelle
286             Johanna
287             Judit
288             Julia
289             Kajsa
290             Karen
291             Karin
292             Karla
293             Karolina
294             Katarina
295             Katrine
296             Kerstin
297             Klara
298             Klara
299             Kristina
300             Laura
301             Lena
302             Lina
303             Linn
304             Linnea
305             Lisa
306             Lotta
307             Lovisa
308             Lydia
309             Maj
310             Maja
311             Malena
312             Malene
313             Malin
314             Margareta
315             Margit
316             Maria
317             Marta
318             Martina
319             Matilda
320             Mikaela
321             Moa
322             Molly
323             Monika
324             Nanna
325             Natalie
326             Nea
327             Nelly
328             Nora
329             Nova
330             Olga
331             Olivia
332             Paula
333             Paulina
334             Petra
335             Petronella
336             Pia
337             Ragnhild
338             Rakel
339             Rigmora
340             Rosa
341             Saga
342             Sara
343             Selma
344             Sibylla
345             Signe
346             Signilda
347             Sigrid
348             Sofia
349             Solveig
350             Sonja
351             Stella
352             Stina
353             Synnove
354             Tea
355             Tekla
356             Teresia
357             Tilda
358             Tilde
359             Tindra
360             Tora
361             Tuva
362             Tyra
363             Ulla
364             Ulrika
365             Vega
366             Viktoria
367             Vilhelmina
368             Vilma
369             Viola
370             Viveka
371             );
372              
373             my @last_male = my @last_female = qw(
374             Aaker
375             Aamodt
376             Aamot
377             Aas
378             Aase
379             Aasen
380             Adell
381             Adolfson
382             Adolphson
383             Ahl
384             Ahlberg
385             Ahlborn
386             Ahlgren
387             Ahlin
388             Ahlman
389             Ahlquist
390             Ahlstedt
391             Ahlstrand
392             Ahlstrom
393             Aker
394             Akerman
395             Akerson
396             Akre
397             Al
398             Alberg
399             Allender
400             Allin
401             Allinder
402             Alm
403             Alman
404             Almen
405             Almer
406             Almgren
407             Almquist
408             Alms
409             Alquist
410             Alstrom
411             Alvin
412             Amdahl
413             Ameen
414             Anderberg
415             Andersson
416             Andre
417             Andreae
418             Andren
419             Anfinson
420             Angerman
421             Anker
422             Ansell
423             Antell
424             Appell
425             Ardell
426             Arn
427             Arndt
428             Arne
429             Arnell
430             Arning
431             Ashlin
432             Ask
433             Asker
434             Aslin
435             Asp
436             Asplund
437             Axelson
438             Backlund
439             Backman
440             Bagge
441             Balstad
442             Bank
443             Bankson
444             Barkman
445             Beckius
446             Beckman
447             Beckstrand
448             Bengtsson
449             Bennick
450             Bergdahl
451             Berge
452             Bergen
453             Bergendahl
454             Berger
455             Bergerson
456             Bergeson
457             Berggren
458             Bergin
459             Berglin
460             Berglund
461             Bergman
462             Bergmark
463             Bergner
464             Bergquist
465             Bergstedt
466             Bergsten
467             Bergstrand
468             Bergstrom
469             Bernson
470             Bertel
471             Bertels
472             Berthel
473             Berwald
474             Billing
475             Birch
476             Birger
477             Birk
478             Birke
479             Bjork
480             Bjorklund
481             Bjorkman
482             Bjorkquist
483             Bjorn
484             Bjornberg
485             Bjur
486             Bjurstrom
487             Black
488             Blaustein
489             Blink
490             Blix
491             Blixt
492             Bloch
493             Blohm
494             Blomberg
495             Blome
496             Blomgren
497             Blomquist
498             Blomstrom
499             Blondell
500             Blondin
501             Bloom
502             Bloome
503             Bloss
504             Blum
505             Blume
506             Blumenthal
507             Blundell
508             Bly
509             Bo
510             Bobek
511             Boberg
512             Bockman
513             Bodeen
514             Bodell
515             Boden
516             Bodin
517             Boe
518             Boehmer
519             Boesen
520             Bogren
521             Bohl
522             Bohlander
523             Bohlen
524             Bohlender
525             Bohlin
526             Bohman
527             Bohner
528             Bohr
529             Bohren
530             Bok
531             Bolander
532             Bold
533             Bolden
534             Boldin
535             Bolen
536             Bolin
537             Bolinder
538             Boll
539             Bolle
540             Bollin
541             Bolling
542             Bolten
543             Boman
544             Bond
545             Bondeson
546             Boner
547             Bong
548             Bonner
549             Boquist
550             Boren
551             Borger
552             Borgman
553             Borgstrom
554             Borr
555             Borreson
556             Bostrom
557             Boven
558             Braff
559             Bram
560             Brammer
561             Brand
562             Brandel
563             Brandell
564             Branden
565             Brandin
566             Branstad
567             Branstrom
568             Branting
569             Bratt
570             Bratten
571             Brauner
572             Breden
573             Bredenberg
574             Bremer
575             Brinck
576             Brink
577             Broberg
578             Brodd
579             Broden
580             Brodin
581             Brogren
582             Brolin
583             Broman
584             Brostrom
585             Bruhn
586             Bruhns
587             Brunell
588             Brunn
589             Bruse
590             Bruun
591             Bryngelson
592             Bursell
593             Busk
594             Buske
595             Bye
596             Byland
597             Bylund
598             Byman
599             Bystrom
600             Callander
601             Carbin
602             Carby
603             Carlberg
604             Carlin
605             Carling
606             Carlquist
607             Carlsson
608             Carlstedt
609             Carlstrom
610             Carnell
611             Casten
612             Castner
613             Cato
614             Ceder
615             Cederberg
616             Cedergren
617             Cederholm
618             Cederquist
619             Cederstrom
620             Charles
621             Christerson
622             Christoferson
623             Clarin
624             Classon
625             Collin
626             Cornell
627             Corvin
628             Cronquist
629             Curlin
630             Dahl
631             Dahlberg
632             Dahlen
633             Dahlgren
634             Dahlin
635             Dahling
636             Dahlman
637             Dahlquist
638             Dahlstrom
639             Dahmen
640             Dalberg
641             Dalen
642             Dalin
643             Dalman
644             Dam
645             Degn
646             Dovell
647             Eck
648             Eckdahl
649             Edberg
650             Edelberg
651             Edgren
652             Edholm
653             Edling
654             Edlund
655             Edquist
656             Edstrom
657             Ehn
658             Ek
659             Ekberg
660             Ekblad
661             Ekdahl
662             Ekholm
663             Eklof
664             Eklund
665             Ekman
666             Ekstrand
667             Ekstrom
668             Ekwall
669             Elander
670             Eld
671             Elg
672             Eliason
673             Ellstrom
674             Elm
675             Elmquist
676             Elofson
677             Enberg
678             Eng
679             Engberg
680             Engblom
681             Engdahl
682             Engelson
683             Engeman
684             Engh
685             Engholm
686             England
687             Englander
688             Englund
689             Engman
690             Engquist
691             Engstrand
692             Engstrom
693             Engwall
694             Enquist
695             Enstrom
696             Ericsson
697             Eriksson
698             Erland
699             Fager
700             Fagerstrom
701             Fahlgren
702             Fahlstrom
703             Falen
704             Farin
705             Farstad
706             Fellin
707             Ferm
708             Fernelius
709             Fernstrom
710             Finberg
711             Flink
712             Floberg
713             Floden
714             Flodin
715             Floren
716             Florin
717             Florman
718             Flygare
719             Fogelberg
720             Follin
721             Fors
722             Forsberg
723             Forsell
724             Forsgren
725             Forslund
726             Forsman
727             Forss
728             Forstrom
729             Fosberg
730             Fosburg
731             Franzen
732             Freberg
733             Fred
734             Fredell
735             Fredenberg
736             Fredin
737             Fredlund
738             Fredman
739             Frid
740             Fridell
741             Frieberg
742             Fries
743             Friese
744             Frisk
745             From
746             Frost
747             Frykman
748             Funck
749             Gade
750             Gard
751             Garde
752             Gedman
753             Germundson
754             Gradin
755             Grahn
756             Gran
757             Granat
758             Granath
759             Granberg
760             Granholm
761             Graning
762             Granlund
763             Granquist
764             Granstrom
765             Gren
766             Grendahl
767             Grinberg
768             Gronberg
769             Grondahl
770             Gronlund
771             Gronquist
772             Grundstrom
773             Gudmundson
774             Gullickson
775             Gullikson
776             Gunnarson
777             Gunst
778             Gustafsson
779             Haaf
780             Haag
781             Haak
782             Haake
783             Hagberg
784             Hagelin
785             Hageman
786             Hagen
787             Hagg
788             Hagge
789             Hagglund
790             Haggstrom
791             Haglund
792             Hagman
793             Hagstrom
794             Hak
795             Hakanson
796             Halberg
797             Halgren
798             Hallberg
799             Hallen
800             Hallgren
801             Hallin
802             Hallman
803             Hallquist
804             Hallstrom
805             Hammar
806             Hammarstrom
807             Hammerberg
808             Hamner
809             Hansson
810             Hard
811             Hassel
812             Hast
813             Hedberg
814             Hedeen
815             Hedeman
816             Hedin
817             Hedlund
818             Hedman
819             Hedquist
820             Hedstrom
821             Helander
822             Helgerson
823             Helgren
824             Helin
825             Hellberg
826             Helle
827             Hellen
828             Hellstrom
829             Helsing
830             Helstrom
831             Hemming
832             Henning
833             Hertz
834             Hertzberg
835             Hessel
836             Hildahl
837             Hilding
838             Hillen
839             Hillner
840             Hillstrom
841             Hjelm
842             Hjerpe
843             Hjort
844             Hogberg
845             Hogen
846             Hogland
847             Hoglund
848             Hollander
849             Holmbeck
850             Holmberg
851             Holme
852             Holmer
853             Holmgren
854             Holmlund
855             Holmquist
856             Holmstrom
857             Holstrom
858             Hoog
859             Hook
860             Horn
861             Horne
862             Hoving
863             Hulin
864             Hult
865             Hultberg
866             Hultgren
867             Hultin
868             Hultman
869             Hultquist
870             Hurtig
871             Huss
872             Hyland
873             Hylen
874             Ingerman
875             Ingerson
876             Isackson
877             Isakson
878             Isberg
879             Isenberg
880             Israelson
881             Jansson
882             Jernberg
883             Joens
884             Johansson
885             Jonasson
886             Jons
887             Jonsson
888             Juhlin
889             Julin
890             Kahr
891             Kalberg
892             Kall
893             Kallberg
894             Kallen
895             Kallenberg
896             Kallgren
897             Kallin
898             Kallman
899             Kallstrom
900             Kalm
901             Kalmar
902             Kaplan
903             Karlberg
904             Karlen
905             Karlin
906             Karlsson
907             Karlstad
908             Karm
909             Kask
910             Kasten
911             Kernell
912             Kielman
913             Kilburg
914             Kindberg
915             Kindell
916             Kjar
917             Kjellberg
918             Klang
919             Kling
920             Klinge
921             Kolberg
922             Koppang
923             Kornberg
924             Krabbe
925             Krafft
926             Kraft
927             Kring
928             Kron
929             Kronberg
930             Kronholm
931             Krook
932             Kroon
933             Kulberg
934             Kullberg
935             Kvistad
936             Lager
937             Lagergren
938             Lagerman
939             Lagerquist
940             Lagerstrom
941             Lageson
942             Lagman
943             Lamberg
944             Lampa
945             Landberg
946             Landeen
947             Landen
948             Landgren
949             Landin
950             Landsberg
951             Landstrom
952             Lang
953             Langberg
954             Lans
955             Larsson
956             Latt
957             Lauren
958             Leander
959             Ledin
960             Ledman
961             Leiman
962             Levander
963             Lidberg
964             Liden
965             Lidstrom
966             Lilja
967             Liljedahl
968             Liljegren
969             Liljenquist
970             Lillquist
971             Lindahl
972             Lindbeck
973             Lindberg
974             Lindblad
975             Lindblom
976             Lindbo
977             Lindborg
978             Lindeen
979             Lindell
980             Lindelof
981             Lindeman
982             Linden
983             Linder
984             Lindfors
985             Lindgren
986             Lindh
987             Lindholm
988             Lindland
989             Lindman
990             Lindmark
991             Lindquist
992             Lindroth
993             Lindskog
994             Lindstedt
995             Lindstrand
996             Lindstrom
997             Lindvall
998             Lindwall
999             Lingren
1000             Linne
1001             Linner
1002             Linquist
1003             Litle
1004             Lo
1005             Loden
1006             Lofdahl
1007             Loff
1008             Lofgren
1009             Lofquist
1010             Lofstrom
1011             Loften
1012             Loftin
1013             Lonn
1014             Loren
1015             Lorentson
1016             Lovgren
1017             Loving
1018             Lowenberg
1019             Lowenstein
1020             Lowenthal
1021             Lubell
1022             Lundahl
1023             Lundberg
1024             Lundblad
1025             Lundborg
1026             Lundeen
1027             Lundell
1028             Lunden
1029             Lundgren
1030             Lundholm
1031             Lundin
1032             Lundmark
1033             Lundquist
1034             Lundstedt
1035             Lundsten
1036             Lundstrom
1037             Lundvall
1038             Luthman
1039             Lybeck
1040             Magnus
1041             Magnusson
1042             Mahlberg
1043             Majerus
1044             Malberg
1045             Malm
1046             Malmberg
1047             Malmborg
1048             Malmgren
1049             Malmquist
1050             Malmstrom
1051             Malstrom
1052             Marcus
1053             Marken
1054             Markstrom
1055             Markus
1056             Markuson
1057             Martinson
1058             Mathiason
1059             Matson
1060             Mattsson
1061             Melander
1062             Melberg
1063             Meldahl
1064             Melin
1065             Mellberg
1066             Mellgren
1067             Mellman
1068             Melquist
1069             Meske
1070             Moberg
1071             Moden
1072             Moder
1073             Modin
1074             Modine
1075             Moe
1076             Mogren
1077             Molander
1078             Molen
1079             Molin
1080             Moman
1081             Moren
1082             Mork
1083             Morton
1084             Mossberg
1085             Mostrom
1086             Munsen
1087             Naslund
1088             Neve
1089             Nilsson
1090             Nobel
1091             Nolen
1092             Norberg
1093             Norby
1094             Nordahl
1095             Nordberg
1096             Nordby
1097             Nordeen
1098             Nordell
1099             Norden
1100             Norder
1101             Nordgren
1102             Nordholm
1103             Nordin
1104             Nordling
1105             Nordlund
1106             Nordmark
1107             Nordquist
1108             Nordstrand
1109             Nordstrom
1110             Nordwall
1111             Noreen
1112             Norell
1113             Noren
1114             Norenberg
1115             Norgaard
1116             Norgren
1117             Norin
1118             Nork
1119             Norlander
1120             Norlin
1121             Norling
1122             Norman
1123             Norquist
1124             Norr
1125             Norrell
1126             Norstrom
1127             Norum
1128             Nygren
1129             Nyholm
1130             Nylander
1131             Nylen
1132             Nylin
1133             Nyman
1134             Nyquist
1135             Nyren
1136             Nystrom
1137             Oberg
1138             Ode
1139             Oden
1140             Ogren
1141             Ohland
1142             Ohlin
1143             Ohlsson
1144             Ohlund
1145             Ohman
1146             Ohrn
1147             Ohs
1148             Olan
1149             Oland
1150             Olander
1151             Olden
1152             Olen
1153             Olin
1154             Olle
1155             Olsson
1156             Oman
1157             Oquist
1158             Orell
1159             Orn
1160             Orne
1161             Orrell
1162             Osbeck
1163             Osberg
1164             Oscarson
1165             Osen
1166             Oslin
1167             Ost
1168             Ostberg
1169             Osteen
1170             Osten
1171             Oster
1172             Osterberg
1173             Ostergaard
1174             Ostergard
1175             Ostergren
1176             Osterholm
1177             Osterling
1178             Osterlund
1179             Osterman
1180             Ostling
1181             Ostlund
1182             Ostman
1183             Ostrom
1184             Otterstrom
1185             Otto
1186             Over
1187             Overbeck
1188             Overberg
1189             Overgaard
1190             Overgard
1191             Palm
1192             Palmberg
1193             Palme
1194             Palmer
1195             Palmgren
1196             Palmquist
1197             Pauli
1198             Peerson
1199             Pehrson
1200             Personius
1201             Persson
1202             Petre
1203             Pettersson
1204             Philipson
1205             Phillipson
1206             Piehl
1207             Plahn
1208             Quarnstrom
1209             Quist
1210             Rahr
1211             Ram
1212             Ramstad
1213             Rank
1214             Ranstrom
1215             Rapp
1216             Rask
1217             Rasmusson
1218             Reierson
1219             Ren
1220             Renberg
1221             Rendahl
1222             Renstrom
1223             Restad
1224             Ringdahl
1225             Ringquist
1226             Roberg
1227             Roden
1228             Rodin
1229             Rodine
1230             Romm
1231             Ron
1232             Roos
1233             Ros
1234             Rosander
1235             Rosberg
1236             Rosdahl
1237             Roseen
1238             Rosell
1239             Roselle
1240             Rosen
1241             Rosenberg
1242             Rosendahl
1243             Rosengard
1244             Rosengren
1245             Rosenlund
1246             Rosenquist
1247             Rosenson
1248             Rosing
1249             Roslund
1250             Rozelle
1251             Rubendall
1252             Ruberg
1253             Rudberg
1254             Rudeen
1255             Rudell
1256             Ruden
1257             Rudin
1258             Rundberg
1259             Rundell
1260             Rundquist
1261             Runquist
1262             Rydberg
1263             Rydeen
1264             Rydell
1265             Ryden
1266             Rydman
1267             Rylander
1268             Ryman
1269             Rystrom
1270             Saam
1271             Safstrom
1272             Sahlberg
1273             Sahlin
1274              
1275             Sahlstrom
1276             Salin
1277             Sall
1278             Salstrom
1279             Samberg
1280             Sand
1281             Sandahl
1282             Sandau
1283             Sandborn
1284             Sandburg
1285             Sandeen
1286             Sandel
1287             Sandelin
1288             Sandell
1289             Sanden
1290             Sander
1291             Sanderlin
1292             Sandgren
1293             Sandholm
1294             Sandin
1295             Sandlin
1296             Sandman
1297             Sando
1298             Sandquist
1299             Sandstedt
1300             Sandstrom
1301             Sandvik
1302             Sanner
1303             Satterlund
1304             Schelin
1305             Sederstrom
1306             Segerson
1307             Segerstrom
1308             Selander
1309             Selberg
1310             Selin
1311             Sellen
1312             Sellin
1313             Selling
1314             Setterberg
1315             Settergren
1316             Setterlund
1317             Severin
1318             Sidman
1319             Silberg
1320             Silverberg
1321             Siren
1322             Sjoberg
1323             Sjoblom
1324             Sjodin
1325             Sjogren
1326             Sjolander
1327             Sjoquist
1328             Sjostrand
1329             Sjostrom
1330             Skarin
1331             Skog
1332             Skoglund
1333             Skogman
1334             Skold
1335             Skoog
1336             Skyberg
1337             Slott
1338             Smedberg
1339             Soder
1340             Soderberg
1341             Sodergren
1342             Soderholm
1343             Soderlind
1344             Soderlund
1345             Soderman
1346             Soderquist
1347             Soderstrom
1348             Solberg
1349             Solin
1350             Solomon
1351             Solomonson
1352             Spong
1353             Spongberg
1354             Stahlberg
1355             Stahle
1356             Steen
1357             Steinberg
1358             Sten
1359             Stenberg
1360             Stendahl
1361             Stenlund
1362             Stenquist
1363             Stenstrom
1364             Sternhagen
1365             Stomberg
1366             Strand
1367             Strandberg
1368             Strandell
1369             Strid
1370             Strom
1371             Stromberg
1372             Stromgren
1373             Stromquist
1374             Strutz
1375             Suhre
1376             Sund
1377             Sundahl
1378             Sundberg
1379             Sundblad
1380             Sundell
1381             Sunderlin
1382             Sundgren
1383             Sundholm
1384             Sundin
1385             Sundling
1386             Sundman
1387             Sundquist
1388             Sundstrom
1389             Sundt
1390             Svensson
1391             Swahn
1392             Swanberg
1393             Swanlund
1394             Swanstrom
1395             Swedberg
1396             Swedlund
1397             Sylvan
1398             Tapper
1399             Telander
1400             Thelander
1401             Thelen
1402             Thelin
1403             Tholl
1404             Thomasson
1405             Thor
1406             Thorell
1407             Thoren
1408             Thorkelson
1409             Thornberg
1410             Thorne
1411             Thornell
1412             Thorner
1413             Thorngren
1414             Thornquist
1415             Thorsell
1416             Thorup
1417             Thron
1418             Thulin
1419             Thull
1420             Thun
1421             Thunberg
1422             Thunstrom
1423             Thur
1424             Tolleson
1425             Torborg
1426             Torell
1427             Toren
1428             Torkelson
1429             Tornberg
1430             Tornquist
1431             Torstenson
1432             Trana
1433             Trest
1434             Tulin
1435             Turnquist
1436             Underberg
1437             Ursin
1438             Utter
1439             Vaden
1440             Valentin
1441             Valla
1442             Vallin
1443             Vang
1444             Vardeman
1445             Varn
1446             Vass
1447             Vik
1448             Vong
1449             Wadell
1450             Wahlberg
1451             Wahlgren
1452             Wahlin
1453             Wahlman
1454             Wahlquist
1455             Wahlstrom
1456             Walberg
1457             Walin
1458             Wall
1459             Wallander
1460             Wallar
1461             Wallberg
1462             Wallen
1463             Wallenberg
1464             Wallerstedt
1465             Wallgren
1466             Wallin
1467             Wallman
1468             Walter
1469             Wangberg
1470             Wass
1471             Weberg
1472             Wedin
1473             Wedman
1474             Welander
1475             Wellman
1476             Wenberg
1477             Wenman
1478             Wennberg
1479             Wenner
1480             Wennerberg
1481             Wennerstrom
1482             Wenstrom
1483             Wergin
1484             Westby
1485             Westerberg
1486             Westerdahl
1487             Westergren
1488             Westerholm
1489             Westerlund
1490             Westgard
1491             Westin
1492             Westling
1493             Westlund
1494             Westman
1495             Westmark
1496             Westrom
1497             Wiberg
1498             Wiborg
1499             Wickland
1500             Wicklander
1501             Wickstrom
1502             Widell
1503             Widen
1504             Wider
1505             Widing
1506             Widman
1507             Widmark
1508             Wieberg
1509             Wigren
1510             Wik
1511             Wike
1512             Wiker
1513             Wiklund
1514             Wikman
1515             Wikstrom
1516             Wilden
1517             Wiman
1518             Winberg
1519             Wind
1520             Windell
1521             Wingard
1522             Winge
1523             Winger
1524             Winquist
1525             Winter
1526             Winther
1527             Wisell
1528             Wist
1529             Wistrom
1530             Wolin
1531             Younggren
1532             Zetterberg
1533             );
1534              
1535             =head1 GENERAL FUNCTIONS
1536              
1537             =head2 name
1538              
1539             Recieves scalar with sex of the person ('male' or 'female') and returns
1540             scalar with generated name.
1541              
1542             =cut
1543             sub name {
1544 0     0 1   my ($sex) = @_;
1545              
1546 0 0         if ($sex eq "female") {
1547 0           return last_female() . " " . first_female() . " " . middle_female();
1548             }
1549             else {
1550 0           return last_male() . " " . first_male() . " " . middle_male();
1551             }
1552             }
1553              
1554             =head2 first_male
1555              
1556             Returns random fists name of male person.
1557              
1558             =cut
1559             sub first_male {
1560 0     0 1   return $first_male[rand @first_male];
1561             }
1562              
1563             =head2 first_female
1564              
1565             Returns random fists name of female person.
1566              
1567             =cut
1568             sub first_female {
1569 0     0 1   return $first_female[rand @first_female];
1570             }
1571              
1572             =head2 middle_male
1573              
1574             Returns random middle name of male person.
1575              
1576             =cut
1577             sub middle_male {
1578 0     0 1   return $middle_male[rand @middle_male];
1579             }
1580              
1581             =head2 middle_female
1582              
1583             Returns random middle name of female person.
1584              
1585             =cut
1586             sub middle_female {
1587 0     0 1   return $middle_female[rand @middle_female];
1588             }
1589              
1590             =head2 last_male
1591              
1592             Returns random last name of male person.
1593              
1594             =cut
1595             sub last_male {
1596 0     0 1   return $last_male[rand @last_male];
1597             }
1598              
1599             =head2 last_female
1600              
1601             Returns random last name of female person.
1602              
1603             =cut
1604             sub last_female {
1605 0     0 1   return $last_female[rand @last_female];
1606             }
1607              
1608             1;