Help for this page
my $count = 1; my @array = ('A','B','C'); ... $hash{$i} = $count; $count++; }
for my $key ( sort {$hash{$a} <=> $hash{$b} } keys %hash ) { print " MIRACLE_HAPPENS is equal to $hash{$key}.<br>\n"; }