my @x;

sub swap {
    my( $i, $j )= @_;
    alias @x[$i,$j]= @x[$j,$i];
}

sub exchange {
    my( $i, $j )= @_;
    alias do {
        my $t= $x[$i];
        $x[$i]= $x[$j];
        $x[$j]= $t;
    };
}