my @foo = 1 .. 2;
sub modit { $_[0] .= ' magic ' }
print modit(@foo),"\n";
print "@foo\n";
__END__
1 magic
1 magic  2