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