Help for this page
#!/usr/bin/perl ... my %hash; $hash{ (split)[0] } //= $_ while <$fh>; print values %hash;
nick 5 erik 9 john 78