my @sorted = sort {substr($a,4) <=> substr($b,4)} @array;

foreach (sort {substr($a,4) <=> substr($b,4)} keys %hash_actually)
{
   ...
}
[download]