Hi try this one,

print join("\n", sort { $hash_of_hashes{$a}->{param} <=> $hash_of_hash
+es{$b}->{param} } keys %hash_of_hashes );
[download]