It should be clear by now, but for completeness sake I add

($one, $two, $three, $four) = ($three, $one, $four, $two);

# and array slicing
my @arr = qw/one two three four/;
@arr = @arr[2,0,3,1];
[download]

This shows that the whole construct works also for more than one element.

-- Hofmator