John, Kowalski, 34267
Eve, Nowak, 11232
Theodor, McNack, 3423 
##</code><code>##

11232, 5.0
55342, 2.0
3423, 3.5 
##</code><code>##

Exam results:
1. Eve Nowak  5.0
2. Theodor McNack 3.5
absent:
1. John Kowalski
unidentified:
1. 55342 
##</code><code>##

#!/usr/bin/perl -w
 

$students = $ARGV[0];
$results = $ARGV[1];
open my $fh, '<', $students;

while(<$fh>)
{
@def = split /,/, $_;
chomp(@def1);
print "@def";
}
open my $fg, '<', $results;

while(<$fg>){
@def1=split /,/,$_;
chomp(@def1);
print "@def1";
}

close($fg);
close($fh);