Select Code to Download

my @recs;
while (read($fh, my $rec, 158)) {
...
}

print $recs[2][3];

    push @recs, [ unpack 'x22 C13', $rec ];