problemas com vetores em perl

[marcks 0]

Olá ao pessoal do fórum!

É o seguinte estou tendo certos problemas com uma atividade que o professor passou, a atividade diz assim:

 

Programa para criar um vetor/matriz e incluir dados dos alunos(nota1,nota2,data de nascimento, nome e RA. faltas totais do semestre)

 

 

Por enquanto eu fiz o nome e data de nascimento, porém como faço para imprimir de forma correta? e como faço para associar os vetores ?

 

segue ai o código

#!/usr/bin/bash/perl
use feature qw/say/;
my @array_nome =();
my @arrayData=();
for (my $i = 0; $i < 3; $i++){
print "Digite o nome do aluno\n";
my $nome_aluno = <>;
push(@array_nome,$nome_aluno);
print"-----------------------------------------------------------\n";
print "Digite a data nascimento do aluno\n";
my $data = <>;
push(@arrayData,$data);

}

print"@array_nome\n";
print"@arrayData\n";
foreach$valor(@array)
{
 print $valor . "\n";
  
}

E segue aí o erro bizarro que sai

marcks@linux-1z0l:~/ED/inter/perl> perl arrays.pl 
Digite o nome do aluno
marcelo
-----------------------------------------------------------
Digite a data nascimento do aluno
12/07/05
Digite o nome do aluno
lucas
-----------------------------------------------------------
Digite a data nascimento do aluno
15/06/2001
Digite o nome do aluno
juliana
-----------------------------------------------------------
Digite a data nascimento do aluno
22/12/1994
marcelo
 lucas
 juliana

12/07/05
 15/06/2001
 22/12/1994

Grato a todos!