$ perl -MO=Deparse,-p -
my($Files) = @_;
my $FilesR = @_;


^D
(my($Files) = @_);
(my $FilesR = @_);
- syntax OK

##</code><code>##


@_ = 0 .. 3;
my( $one, $two, $three ) = @_;
print "one($one)two($two)three($three)\n";
( $one, $two, $three ) = scalar @_;
print "one($one)two($two)three($three)\n";

__END__
one(0)two(1)three(2)
one(4)two()three()