#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV;

my $file1 = 'hr_sorted.csv';
my $file2 = 'log.csv';

open('F', $file1) || die $!;
open('S', $file2) || die $!;

my (@first, @second);

my $csv = Text::CSV->new();

while (<F>)
{
    chomp;
    $_ =~ s/\r//g;
    push(@first,$_);
}
close(F);
while (<S>)
{
    chomp;
    $_ =~ s/\r//g;
    push(@second,$_);
}
close(S);
my %slcs = ( 'ML' => 'H.E.R.O', 'EC' => 'College Gateway', 'SJ' => 'So
+cial Justice', 'GI' => 'Global T.E.A.M',
        'LS' => 'R.E.A.Ch', 'CM' => 'Communication Media Technology');
my @id;
my $c = 0;
my @index;
my @res;
for (@first)
{
    print $_,$/;
    $csv->parse($_);
    my @line = split(/\,/,$_);
    print Data::Dumper::Dump(@line);
    my $lname = $line[0];
    $lname =~ s/\s+/ /g;
    $lname =~ s/\s+$//;
    $lname = lc($lname);

    my $fname = $line[1];
    print "$fname\n";
    $fname =~ s/\s+/ /g;
    $fname =~ s/\s+$//;
    $fname = lc($fname);
    print length($line[3]),$/;
    next;
[download]

CONDE,YESENIA MARGARITA,7/4/1990,LS Use of uninitialized value in subs
+titution (s///) at mlist.pl line 46.
Use of uninitialized value in concatenation (.) or string at mlist.pl 
+line 50.
Use of uninitialized value in substitution (s///) at mlist.pl line 52.
Use of uninitialized value in length at mlist.pl line 54.
,12,A,Los Angeles Hi ,WG1A
[download]