Select Code to Download

sub swap_1 { (@_) = reverse(@_); }

...
print "one is '$one'\n";
print "two is '$two'\n";
print "-------------\n";

one is 'I am one'
two is 'I am two'
...
one is 'AAA'
two is 'BBB'
-------------