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

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