Select Code to Download

foreach my $line (<FH>)

use strict;

...
 open FH, ">foo.new" or die "Can't open: $!";
 print FH map join('|', @$_) . "\n", @recs;
 close FH;

@$ref[0..4]

@$ref