use strict;
my %hash=();

while (<>) {
  my ($num,$name)=(split/\s/,$_)[0,3];
  $hash{$name}=$num;
}

foreach (keys %hash) {
  print "Key: $_\n";
  print "Data: $hash{$_}\n";
}
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Speedy Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.