Help for this page
>perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 0 723 >perl -le"$_='7'; int if $ARGV[0]; print $_ | '123'" 1 127
>perl -MDevel::Peek -e"$_='0'; Dump $_; int; Dump $_;" SV = PV(0x236054) at 0x18447c4 ... PV = 0x1824064 "0"\0 CUR = 1 LEN = 4
push @list, 0+$_;