>perl -MO=Concise,-exec -Mbigint -e"my $big = 1234; for (1..4) { foo($big) }"
...
7  <0> pushmark s
8  <$> const[RV \HASH] s        <-- for loop indexes are needlessly
9  <$> const[RV \HASH] s        <--   BigInt objects.
a  <#> gv[*_] s
b  <{> enteriter(next->h last->k redo->c) lKS/8
...

##</code><code>##

>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
...