[Perl] Question sur les tris (sort)

Bonjour,

Je suis confronté à un problème tout bête, mais ennuyeux
Je cherche à faire un sort ...

while (<XML>) {   
    $XMLhash{$i}   
    $i++;   
}   
foreach my $key ( sort keys %XMLhash ) {   
    print $key;   
}

J'ai une liste "mal" triée en retour ...
0 1 10 100 1000 1001 1002 [...]

Comment puis-je faire pour avoir un "vrai" tri de ce type ?
0 1 2 3 [...] 10 11 [...] 100

Si vous avez votre réponse, pensez à spécifier : [Résolu]