my $sub=eval 'sub {('.join(',',map{'$s'.$_}0..1000).')=@base}';