[perl] Classifica��o de variavel array

[Marcio Conceicao]

  Ola pessoal

  Estou com problema no programa abaixo. Eu gostaria
que o resultado impresso fosse na mesma ordem que est�
na vari�vel, por�m isso n�o ocorre.
  Qual seria a solu��o?
  Grato.

Marcio Conceicao
[EMAIL PROTECTED]
========================================
#!/usr/local/bin/perl -w

%escolaridade = (
                "0","Escolha aqui...",
                "pi","Primeiro grau incompleto",
                "pc","Primeiro grau completo",
                "si","Segundo grau incompleto",
                "sc","Segundo grau completo",
                "gi","Gradu��o incompleto",
                "gc","Gradua��o completo",
                "pgi","P�s-gradua��o incompleto",
                "pgc","P�s-gradua��o completo",
                "dc","Doutorado completo",
                "di","Doutorado incompleto",
                );
                                
@formulario  = &cria_select('escolaridade');
print "Content-type: text/html\n\n";
print @formulario;

sub cria_select {
                my (@results) = "<select name='$_[0]'>";
                foreach $key (keys %escolaridade) {
                        push @results, "<option
value='$key'>$escolaridade{$key}</option>\n";
                }
                push @results, "</select>";
                return @results;
}
=========================
__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================