Hi cristianro87

For something like this , I would use the Sort::Naturally library.

http://search.cpan.org/~bingos/Sort-Naturally-1.03/lib/Sort/Naturally.pm

Here is a sample of the sort, along with the output.

use strict;
use warnings;
use Sort::Naturally;

my %DATA_HASH = 
(
    'hs1' => 1,
    'hs2' => 1,
    'hs3' => 1,
    'hs10' => 1,
    'hs9' => 1,
    'hs15' => 1,
    'hs21' => 1,
    'hs110' => 1,
    'hs11' => 1
);

print "$_\n" foreach nsort keys %DATA_HASH;

__END__

Output:

C:\monks\sort>perl test_sort.pl
hs1
hs2
hs3
hs9
hs10
hs11
hs15
hs21
hs110

C:\monks\sort>
[download]