J'ai un ti probleme avec les trie , j'ai un hash

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
%fichiers = (
 
 
               file => [ "supuer cool.doc", "rapport.html" ]
 
               );


Je voudrais les envoyé chaque type de fichiers vers un programme dédié je voudrais utiliser un trie mais j'ai quelque problème avec

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
@list   = qw( .doc, .ppt);
@list2 = qw( .html .aspx);
J'ai testé cette méthode

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
sub bureautique
{
 my $fichier = shift;
 my $cmp = join("", @list),
 my $reponse = $fichier <=> $cmp;
 return $reponse;
}

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
sub internet
{
 my $fichier1 = shift;
 my $cmp1 = join("", @list2),
 my $reponse1 = $fichier1 <=> $cmp1;
 return $reponse1;
}
Le problème c'est que sa ne marche pas comme je voudrais , car le trie me renvoie 0 que sa corresponde ou pas