for my $key ( sort {$hash{$a} <=> $hash{$b} } keys %hash )
{
     print " MIRACLE_HAPPENS is equal to $hash{$key}.<br>\n";
}