use strict;
use warnings;

@_ = @ARGV;

package Foo;

print for @_;
@_ = qw(1 2 3 4 5);
{
    local @_ = reverse @_;
    print for @_;
}

package main;

print for @_;