>perl -MO=Concise,-exec -MMath::BigInt -e"my $big = Math::BigInt->new('1234'); for (1..4) { foo($big) }"
...
b  <0> pushmark s
c  <$> const[IV 1] s            <-- Much better
d  <$> const[IV 4] s            <--
e  <#> gv[*_] s
f  <{> enteriter(next->l last->o redo->g) lKS/8
...