Select Code to Download

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";
}