Select Code to Download

$placeholder = $date[$n];
$date[$n] = $date[$n2];
$date[$n2] = $placeholder;

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

my @foo;
$foo[0]=0;
...
print "@foo\n";
($foo[0], $foo[1])=($foo[1], $foo[0]);
print "@foo\n";