Big Bird 10 20 40 50
Calvin Klein 45 30 100 80 10
Mother Natures 100 100 23

##</code><code>##

open (LOG, $log) or die "Error: $!";
my @lines = <LOG>;
close(LOG) or die "Error: $!";

my @good_results;

foreach my $key (@lines)
{
  # my ($fname, $lname, $grades) = split(/\w+/, $key);

   my ($fname, $lname) = split(/ /, $key);
   $key =~ m/\w+\s+(\d+\s)$/;
   my $grades = $1;

   print "$lname and $fname $grades\n";

   #push(@good_results, "$lname $fname $grades");
}

#print join("\n", sort @good_results);