No temp value is needed when swapping in Perl:

($freq[$i], $freq[$j]) = ($freq[$j], $freq[$i]);
[download]

or even (using slices):

@freq[$i, $j] = @freq[$j, $i];
[download]