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, '' );
}

##</code><code>##

$ perl -MO=Concise,-exec buk.pl
1  <0> enter 
2  <;> nextstate(main 5 buk.pl:1) v:{
3  <{> enterloop(next->z last->13 redo->4) v
10 <#> gv[*fhs] s
11 <1> rv2av[t2] sK/1
12 <|> and(other->4) vK/1
4      <;> nextstate(main 1 buk.pl:2) v
5      <0> pushmark sM
6      <$> const[PV "\r%d\t"] sM
7      <#> gv[*fhs] s
8      <1> rv2av[t5] sK/1
9      <@> prtf vK
a      <;> nextstate(main 1 buk.pl:3) v
b      <#> gv[*fhs] s
c      <1> rv2av[t8] sK/1
d      <1> rand[t9] sK/1
e      <1> int[t10] sK/1
f      <0> padsv[$r:1,3] sRM*/LVINTRO
g      <2> sassign vKS/2
h      <;> nextstate(main 2 buk.pl:4) v:{
i      <#> gv[*bufs] s
j      <1> rv2av sKR/1
k      <0> padsv[$r:1,3] s
l      <2> aelem sK/2
m      <1> length[t12] sKP/1
n      <|> or(other->o) vK/1
o      <;> nextstate(main 2 buk.pl:5) v:{
p      <#> gv[*bufs] s
q      <1> rv2av sKR/1
r      <0> padsv[$r:1,3] s
s      <2> aelem sKM/2
t      <$> const[IV -16] s/FOLD
u      <$> const[IV 16] s
v      <$> const[PV ""] s
w      <@> substr[t16] sK/4
x      <0> padsv[$nextRec:2,3] sRM*/LVINTRO
y      <2> sassign vKS/2
z      <0> unstack v
           goto 10
13 <2> leaveloop vKP/2
14 <@> leave[1 ref] vKP/REFC