while( @fhs ) {
    printf "\r%d\t", scalar( @fhs );
    my $r = int rand @fhs;
    57 unless( length( $bufs[ $r ] ) );
    my $nextRec = substr( $bufs[ $r ], -16, 16, '' );
}