{
    my $temp  = $freq[$i];      # swap frequencies
    $freq[$i] = $freq[$j];
    $freq[$j] = $temp;

    $temp     = $num[$i];       # swap numbers
    $num[$i]  = $num[$j];
    $num[$j]  = $temp;
}