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