#! /usr/bin/perl

use warnings;
use strict;


my $file = 'newusers.csv'; #kopplar filen
my $fileold = 'oldusers.txt';

open (FH, "<", $file) or die "Couldn't read $file: $!"; #öppnar och läser in filen
open (OF, "<", $fileold) or die "Could'nt read $fileold: $!";

while (<FH>){
    my @values = split (',' , $_);
    my $firstname = substr $values[1], 0,2;
    my $lastname = substr $values[0], 0,3;
    my @year = localtime(time);
    my $years = $year[5]-100;
    my $lowerFirstname = lc($firstname);
    my $lowerLastname = lc($lastname);
    my $char = "a";
    my $username = "$char$years$lowerFirstname$lowerLastname";
    foreach my $val (@values){
    }

    #print "------------------------- \n";
    #print  "Förnamn: $values[1] \n";
    #print "Efternamn: $values[0] \n";
    #print "SSN: $values[2] \n";
    #print "användarnamn: $username \n";
    #print "\n";

    while (<OF>){
        my @oldvalues = split ("\n" , $_);
        my $oldname = substr $oldvalues[0], 0,8;
        foreach my $vall (@oldvalues) {}


print "Old names: $oldname \n";
print "-------------------\n";
print "new names $username\n";

    }


}