for ( sort { $hoh{$a}->{param} <=> $hoh{$b}->{param} } keys %hoh )
{
    print "$_\n";
}
[download]