my $james = $ARGV[0];
my $john = $ARGV[1];





if ($james =~ m/a/) {
$employ = "james with grade a"; #pick james 
}elsif ($john =~ m/a/)
{
$employ = "John with grade a"; # pick john
}
elsif ($james =~ m/b/) 
{

#$employ = "james doesnt have grade a"; 
}
elsif ($john =~ m/b/) 
{
#$employ =  "john doesnt have grade a";
}
elsif ($james =~ m/b/ &&  $john =~ m/b/) 
{
$employ = "Both james and john doesnt have grade a \n";

}

print $employ;