Ajuda Em Programa Em Perl

Pessoal,

Preciso de programa em perl que receba o nome de três notas de 10 alunos(utilizando array) e depois calcule a média aritmética do semestre. Sabendo que para aprovação o aluno precisa ter uma média semestral maior ou igual a 6, escreva uma mensagem indicando se o aluno foi aprovado ou reprovado.

E uma rotina que utilize os seguintes comandos - scalar, $#nome_do_array, push, pop, unshift, shift - e explique o que esta fazendo no programa.

Observação:
Média do semestre = (1ª nota + 2ª nota + 3ª nota) / 3

Se alguém poder ajudar nesta empreitada fico muito grato.

Isso está me cheirando à trabalho de faculdade, hehehe.