Select Code to Download

#define 3 variables, 2 for storage, one for temp...
my ($a, $b, $c);
...
$b = $c;

#now, $a has $b and $b has what $a had

($b, $a) = ($a, $b);   #swap two variables

#!/usr/bin/perl -w

...

not traditional: 11 wallclock secs (10.25 usr +  0.00 sys = 10.25 CPU)
+ @ 302846.15/s (n=3104173)
traditional: 11 wallclock secs (10.83 usr +  0.00 sys = 10.83 CPU) @ 4
+91714.04/s (n=5325263)