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>