#!/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' => 'Social 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;