my @recs;
while (read($fh, my $rec, 158)) {
    push @recs, [ unpack 'C*', substr($rec, 22, 13) ];
}

print $recs[2][3];