sub x(@;_) { print @_ ? @_ : $_ };;

$_ = 'fred'; x();;
fred

$_ = 'fred'; x( 1 .. 5 );;
1 2 3 4 5

$_ = 'fred'; x( 1 );;
1