#!/usr/bin/perluse DBI;use strict;use warnings;use lib qw(..);use JSON qw(  );use Data::Dumper;

# declare a variable for the test txt filemy $maleNames = 'maleNames.txt';# connect to and open the json fileopen (FH, "< $maleNames") or die "Can't open $maleNames for read: $!";my @maleLines ;while (<FH>) {    push ( @maleLines , $_);}close FH or die "Cannot close $maleNames: $!";

my @maleList = ();foreach my $x ( @maleLines ) {  my $str = $x; @maleList = split(',', $str);}

# declare a variable for the test txt filemy $femaleNames = 'femaleNames.txt';# connect to and open the json fileopen (FH, "< $femaleNames") or die "Can't open $femaleNames for read: $!";my @femaleLines ;while (<FH>) {    push ( @femaleLines , $_);}close FH or die "Cannot close $femaleNames: $!";

my @femaleList = ();foreach my $x ( @femaleLines ) {  my $str = $x; @femaleList = split(',', $str);}

my $gender = int(rand(2));

if ( $gender == 0 ) {$gender = "female";} else {$gender = "male";}

my $n1 = int(rand(8)+1);my $n2 = int(rand(9));my $n3 = int(rand(9));my $n4 = int(rand(9));my $n5 = int(rand(9));my $n6 = int(rand(9));my $n7 = int(rand(9));my $n8 = int(rand(9));my $n9 = int(rand(9));my $n10 = int(rand(9));

my $phoneNumber = "($n1$n2$n3) $n4$n5$n6-$n7$n8$n9$n10";

my $z1 = int(rand(8)+1);my $z2 = int(rand(9));my $z3 = int(rand(9));my $z4 = int(rand(9));my $z5 = int(rand(9));

my $zipcode = $z1 . $z2 . $z3 . $z4 . $z5;

firstName.lastName @ emailServer . com

my @emails = ("gmail", "hotmail", "protonmail", "yahoo", "aol");

my $index = rand @emails ;my $email = $emails[$index];

my $index2 = rand @adjectiveList ;my $adjective = $adjectiveList[$index2];

my $index3 = rand @animalsList ;my $myAnimal = $animalsList[$index3];

fuzzy . kitten . 01 @ gmail .com

firstName . the . terrible @ yahoo .com

my $emailAddress = "";my $girlGuy  ="";if ($gender eq "male"){  $girlGuy = "guy";}else {  $girlGuy = "girl";}my $emailFormat = int(rand(5));if ($emailFormat == 0){$emailAddress = $lastName[0] . "." . $lastName[1] . $sN3 . $z2 . "@" . $email . ".com";} elsif ($emailFormat == 1) {  $emailAddress = $adjective . "_" . $myAnimal . $sN1 . "@" . $email . ".com";} elsif ($emailFormat == 2) {  $emailAddress = $adjective . "_" . $lastName[0] . $sN1 . "@" . $email . ".com";} elsif ($emailFormat == 3) {  $emailAddress = $newState . "_" . $girlGuy . $sN1 . $sN2 . $sN3 . "@" . $email . ".com";} elsif ($emailFormat == 4) {  $emailAddress = $adjective . "_" . $newCity . "_" . $girlGuy . $sN1 . $sN2 . $sN3 . "@" . $email . ".com";}$emailAddress =~ s/\s+//g;

Electrical Engineer

elect

my $substring = substr $job, 0, 5;

my @degrees = ();foreach my $x ( @bachelorList ) {  if (index($x, $substring) != -1) {      push @degrees , $x;  }}

foreach my $x ( @associateList ) {  if (index($x, $substring) != -1) {      push @degrees , $x;  }}

foreach my $x ( @masterList ) {  if (index($x, $substring) != -1) {      push @degrees , $x;  }}

my $degree = "";

foreach my $x ( @degrees ) {  $degree = $degree . ", " . $x;}

my $json = {NAME=>$name, WEIGHT=>$finalWeight, HEIGHT=>$finalHeight, EYE_COLOR=>$eyeColor, BODY_TYPE=>$bodyType, HAIR_COLOR=>$hairColor, SKIN_COLOR=>$skinColor, RELIGION=>$myReligion, SCHOOL=>$school, HIGHEST_LEVEL_OF_EDUCATION=>$highestLevelOfEducation, AGE=>$age, STUDENT_LOAN_DEBT=>'$' . $studentLoanDebt . '.00', ANNUAL_SALARY=>'$' . $annualSalary . '.00', CHILDREN=>$kids, BIRTHDAY=>$birthDate, GENDER=>$gender, MARITAL_STATUS=>$married, SPOUSE=>$spouse, ADDRESS=>$streetNumber . " " . $newStreet . ", " . $newCity . ", " . $newState . " " . $zipcode, PHONE=>$phoneNumber, EMAIL=>$emailAddress, OCCUPATION=>$job, HOBBIES=>$hobby1 . ", " . $hobby2 . ", " . $hobby3, DEGREE=>$degree, ETHNICITY=>$ethnicBackground};

print Dumper $json;

{          'ADDRESS' => '7841 3rd Street West, Duarte, Minnesota 87604',          'GENDER' => 'female',          'SPOUSE' => 'Raleigh Teer',          'STUDENT_LOAN_DEBT' => '$6336.00',          'HAIR_COLOR' => 'Dark Brown',          'HEIGHT' => '6 feet, 10 inches',          'EMAIL' => ' creepy_Duarte_girl784@aol.com ',          'SKIN_COLOR' => 'Light Brown',          'RELIGION' => 'Stoicism',          'HOBBIES' => 'Golf, Tutoring Children, Photography',          'BIRTHDAY' => 'March 7, 1983',          'PHONE' => '(361) 734-5735',          'WEIGHT' => '327 lbs',          'AGE' => 35,          'MARITAL_STATUS' => 'married',          'DEGREE' => ', Bachelor of Accountancy, Master of Accountancy, Master of Accounting and Information Systems',          'ETHNICITY' => 'Chinese Australian',          'SCHOOL' => 'University of Minnesota-Duluth',          'NAME' => 'Maggie Davila',          'HIGHEST_LEVEL_OF_EDUCATION' => 'Masters Degree',          'BODY_TYPE' => 'Thick',          'EYE_COLOR' => 'Black',          'OCCUPATION' => 'Accountant',          'CHILDREN' => 5,          'ANNUAL_SALARY' => '$68077.00'        };