@a[ $i, $j ] = @a[ $j, $i ];