Select Code to Download

    my $temp = $_[1];
    $_[1] = $_[0];
    $_[0] = $temp;

    @_[0, 1] = @_[1, 0]

$ perl -wE '@_ = 0 .. 3; say "@_"; @_[0, 1] = @_[1, 0]; say "@_"'
0 1 2 3
1 0 2 3