my %names;

while (<>) {
   my ($first, $last) = split;
   if ($last) {
       # add last name to hash element
       push @{$names{$first}}, $last;
   } 
}


# print names
print @{$names{'John'}};