Hi!

for 1., be inspired by the following code:

my $x = 5; my $y = 2;
($x, $y) = ($y, $x);
print ("$x $y\n");
[download]

for 2., check here in the FAQ on how to handle circular lists

HTH, Rata