$ perl -E'$_="x"; @_=(4,5); say $_,@_; local *_; say $_,@_;'
x45