Lateur Bart 97
Pierce Jerrad 96
Unknown planetscape 101
Miller Katie 86

##</code><code>##

use warnings;
use strict;
use Data::Dumper;
my %hash = ();
my ($lname, $fname, $score);
while( <> ) {
   ( $lname, $fname, $score ) = split;
   $hash{$lname}{$fname} = $score;
}

print Dumper(\%hash);

##</code><code>##

print %{ $hash{$lname}{$fname}{$score} }\n";

##</code><code>##

C:\Perl\bin>perl test16.pl test.txt
Global symbol "$lname" requires explicit package name at test16.pl line 12.
Global symbol "$fname" requires explicit package name at test16.pl line 12.
Global symbol "$score" requires explicit package name at test16.pl line 12.
Execution of test16.pl aborted due to compilation errors.