my @swapped = swap ( qw(this that) );
##</code><code>##

my @swapped = swap( $variables_that_should, $not_be_swapped )