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

##</code><code>##

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

##</code><code>##

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