#!/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);