Perl Problèmes paramètres tableau 2 dimension

print "voici delt: @$_\n" foreach @delt;

&Recherche_Automate_Fini($text,\@delt,$m);

#!/usr/bin/perl
use warnings;
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $k=$m+1;
      }else {
        $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q).$mot;
          $lpk=length($pk);
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0));
      $delta[$q][$mot]=$k;
#     print "$delta[$q][$mot] ";
      print "q = $q - mot = $mot - $k => $delta[$q][$mot]\n";
    }
#    print"\n";
  }
  return (@delta);
}
# appel par invocation de la fct suivi de la liste des valeurs des paramÃ~Cštres effectifs
# $tableau[$i][$j]@delt=Calcul_Fonction_Transition($motif);
#print "voici delt: @$_\n" foreach @delt;

lami20j@debian:~/trash$ perl ccm.pl
Name "main::delt" used only once: possible typo at ccm.pl line 33.
Veuillez entrer un motif
ababaca
Argument "a" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = a - 1 => 1
Argument "b" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = b - 0 => 0
Argument "c" isn't numeric in array element at ccm.pl line 24, <> line 1.
q = 0 - mot = c - 0 => 0
q = 1 - mot = a - 1 => 1
q = 1 - mot = b - 2 => 2
q = 1 - mot = c - 0 => 0
q = 2 - mot = a - 3 => 3
q = 2 - mot = b - 0 => 0
q = 2 - mot = c - 0 => 0
q = 3 - mot = a - 1 => 1
q = 3 - mot = b - 4 => 4
q = 3 - mot = c - 0 => 0
q = 4 - mot = a - 5 => 5
q = 4 - mot = b - 0 => 0
q = 4 - mot = c - 0 => 0
q = 5 - mot = a - 1 => 1
q = 5 - mot = b - 4 => 4
q = 5 - mot = c - 6 => 6
q = 6 - mot = a - 7 => 7
q = 6 - mot = b - 0 => 0
q = 6 - mot = c - 0 => 0
q = 7 - mot = a - 1 => 1
q = 7 - mot = b - 2 => 2
q = 7 - mot = c - 0 => 0

lami20j@debian:~/trash$ sed '24!d' ccm.pl
      $delta[$q][$mot]=$k;

lami20j@debian:~$ cat automate.pl
#!/usr/bin/perl
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $e1 = $k=$m+1;
      }else {
        $e2 = $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q).$mot;
          $lpk=length($pk);
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0)) ;
      push @{$delta[$q]},$k;
    }
    unshift @{$delta[$q]},$q;
  }
  return @delta;
}

@delt = Calcul_Fonction_Transition ($motif);
print "voici le tableau\n";
for (@delt) {
        print "@{$_}\n";
}
lami20j@debian:~$ perl automate.pl
Veuillez entrer un motif
ababaca
voici le tableau
0 1 0 0
1 1 2 0
2 3 0 0
3 1 4 0
4 5 0 0
5 1 4 6
6 7 0 0
7 1 2 0

#!/usr/bin/perl
print "Veuillez entrer un motif \n";
$motif=<>;
chomp($motif);
$m=length($motif);

sub Calcul_Fonction_Transition {
  $n= $_[0];
  @sigma=('a','b','c');
  $m=length($n);
  for ($q=0 ; $q <= $m ; $q++) {
    foreach $mot (@sigma) {
      if ($m+1 < $q+2 ) {
        $e1 = $k=$m+1;
      }else {
        $e2 = $k=$q+2;
      }
      do {
          $k=$k-1;
          $pk=substr($n,0,$q) . $mot;
      } until ((substr($n,0,$k))eq(substr($pk,$lpk-$k,$k)) or ($k==0)) ;
      push @{$delta[$q]},$k,$pk;
    }
    unshift @{$delta[$q]},$q;
  }
  return @delta;
}

@delt = Calcul_Fonction_Transition ($motif);
print "voici le tableau\n";
for (@delt) {
        print "@{$_}\n";
}

lami20j@debian:~$ perl automate.pl
Veuillez entrer un motif
ababaca
voici le tableau
0 1 a 0 b 0 c
1 1 aa 2 ab 0 ac
2 3 aba 0 abb 0 abc
3 1 abaa 4 abab 0 abac
4 5 ababa 0 ababb 0 ababc
5 1 ababaa 4 ababab 6 ababac
6 7 ababaca 0 ababacb 0 ababacc
7 1 ababacaa 2 ababacab 0 ababacac