Since perl can do multiple assignments in one swell foop, this would work too, avoiding the temporary variable:

sub swappy {
   ($_[0], $_[1]) = ($_[1], $_[0])
}
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.