Select Code to Download

# print-first.pl. See Perl Monks [id://11154123].
use strict;
...
   print "$key $val\n";
}
close $fh;

$ cat t1.txt
nick 5
...
john 78
erik 9
erik 12

$ perl print-first.pl
usage: print-first.pl file
...
nick 5
john 78
erik 9