Select Code to Download

($p->[$_], $p->[$swap]) = ($p->[$swap], $p->[$_]);

use strict;
use warnings;
...
          Rate swap temp
swap 1381331/s   -- -43%
temp 2425611/s  76%   --