($date[$n], $date[$n2])=($date[$n2], $date[$n]);

##</code><code>##

@date[$n, $n2] = @date[$n2, $n];