#!/local/bin/perl -w

#Example: Using a hash to store string of values.

use strict;
my $line;
my %marks;

open(GRADES, "grades") || die "Couldn't open grades\n";

while($line = <GRADES>) {
  chomp($line);
  my($name, $grade);
  ($name, $grade) = split(/ /, $line);
  
  if(defined( $marks{$name} )) {
    $marks{$name} = join( ' ', $marks{$name}, $grade);
  } else {
    $marks{$name} = "$grade";
  }
}
my $chef;

foreach $chef (keys (%marks)) {
  print "$chef $marks{$chef}\n";
}