#!/usr/bin/perl
use strict;
use warnings;

open FILE,'>>',"password.passwd" or die 'Could not open file';     
my $file = 'file.csv';
my @data;
my $count=500;

open(my $fh, '<', $file) or die "Can't read file '$file' [$!]\n";
while (my $line = <$fh>) {
chomp $line;
$count++;   
my @fields = split(/,/, $line);
push @data, \@fields;
#print "@fields\n";


my($Lname,$Fname,$ssn,$address,$city,$state,$zip,$phone1,$phone2)=($fields[0],$fields[1],$fields[2],$fields[3],$fields[4],$fields[5],$fields[6],$fields[7],$fields[8]);

my $user="";
my $password="4cb9c8a8048fd02294477fcb1a4119la";
my $userId="$count";
my $groupId='25';
my $info="$Fname $Lname";
my $home='/home/payroll';
my $shell='/bin/payroll';

#####################################################
##################create usr name#########################
##########################################################
print FILE "$user:$password:$userId:$groupId:$info:$home:$shell\n";
}
close $fh;
close File;