our @data = 'fred'; 
sub x{ 
    our @data; 
    local *data = shift; 
    print $data[ $_ ] for 0 .. $#data; 
};;

my @junk = reverse 1 .. 10; 
x( \@junk ); 
print ">>@data<<<";;
10
9
8
7
6
5
4
3
2
1
>>fred<<<