sub swap { my $temp = $_[0]; $_[0] = $_[1]; $_[1] = $temp; }