my Num $i;
sub ($i) { # new $i here

}