Código em Perl

sub setSubtraction {     
    my ($min, $st) = @_;          
    my @minuendo = @{$min};
    my @subt = @{$st};     
    my %hm;    
    my %hs;     
    my @res;     

    foreach(@minuendo){ $hm{$_} = 1;}         
    foreach(@subt){$hs{$_} = 1;}     

    while (($key, $value) = each(%hm)){  
        if($hs{$key} != 1){     
            push @res, $key;   
        }    
    }
     
    return @res;   
}

O código acima ilustra alguns pontos pelos quais eu demorei muito pra aprender Perl. E mesmo já tendo feito alguns programas em Perl, ainda tenho extrema dificuldade em ler um programa....porque nunca me lembro o que %, @ e $ representam, e para qual variável $_ aponta. As coisas são pouco intuitivas, e os programas em geral são feios e difíceis de serem lidos (sobre tudo se tiverem expressões regulares). Tá certo que eu não sou um grande expert de Perl, mas mesmo pessoas que conhecem a linguagem demoraram pra ver o que o programa fazia. E pior: cada uma das pessoas que viu o código usaria outra síntaxe para escrever alguns trechos do programa (cada uma deu uma sugestão diferente para trechos diferentes). Sem mudar o algoritmo e as estruturas de dados usadas, existem N variantes de sintaxe possíveis. Acho que muita flexibilidade às vezes atrapalha. Como diria o Raphael, autor do código acima: "Write once, never read it again". Fico imaginando o trabalho que deve ser manter grandes sistemas. Agora, reconheço o poder de Perl para tratar strings, textos e afins, e por sua rapidez para escrever protótipos. Foi por isso que escolhi essa linguagem (que na época não conhecia) para escrever um programa que lia um texto e etiquetava as palavras segundo a posição da sílaba tônica e número de sílabas. Em C teria sido muito mais difícil. Alguém sabe me dizer o que o programinha acima faz ?