sub F123456{  my( $a, $b, $c )= @_; my $x = 123456; return $a * $b - $c; };;
*{"X$_"} = \&F123456 for 0 .. 1e6;;