Galera queria saber se alguem poderia me ajudar com isso?

#!/usr/bin/perl

# Modo desjado de impressao
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
# 0 1 2 3
#
#
@alelos = (00000, 11111, 22222, 33333);
$max_alelle = 5;
$loci = 4;
for ($i = 0; $i < $max_alelle; $i++)
{
for ($j = 0; $j < $loci ; $j++)
{
print "$alelos[$i][$j]\t";
}
print "$alelos[$i][$j]\n";
}

Queria imprir dessa forma em uma matriz bidimensional.

Valeu se alguem puder me ajudar.