#!/usr/bin/perl 

@grades = qw(Noel 25 
             Ben 76 
             Clementine 49 
             Norm 66 
             Chris 92 
             Doug 42 
             Carol 25 
             Ben 12 
             Clementine 0 
             Norm 66);  ###Create my list

%grades = @grades;  ### turn the list into a hash
print "Whose Grade do you want\n"; ### ask for the name
$_ = <STDIN>;
print "$_\n";  ### this is for diagnostics
chomp $_;
$student = $grades{$_}; ### find the grade
print "$student\n";  ### this is for diagnostics

if ($student = "") {print "Cannot find that student, try again\n";}
else
{print "$_ has a" . $student . "\n";};  ###All I see for the output is up to the a and not $student####