my $x = $l[$r]; $l[$r] = $l[$_]; $l[$_] = $x;