How about

s/^\-+// for @ARGV;
$func = eval 'sub { ' . join(' ',reverse @ARGV) . '$_[0] }';
[download]

Dave.