Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
my @firstofeachname = uniq_by { (split)[0] } <$fh>;

print @firstofeachname;

Select or download this
```
nick 5
john 78
erik 9
```