my $variable = "@palabra"; #esto da error
my $variable = '@palabra'; #no da error
#¿Por qué?

#!/usr/bin/perl -w
use strict;
use diagnostics;

#¿Una matriz con valores predefinidos se declara así?
my @matriz = (["uno-uno", "uno-dos", "uno-tres"],
              ["dos-uno", "dos-dos", "dos-tres"],
              ["tres-uno", "tres-dos", "tres-tres"]);


print $matriz[1][2], "\n"; #Esto imprime correctamente

print @matriz , "\n"; #¿Qué imprime esto?
print $matriz[1] , "\n"; #Y esto ¿qué imprime?

#¿Se declara así una matriz de tres filas vacías?
#¿Declaro con los corchetes el número de filas?
my @matriz2 =([],[],[]);

#¿Cómo añado por ejemplo la variable "salami" en la posición (0,1) de @matriz2?

$matriz2[0][1] = 'salami';

#!/usr/bin/perl -w
use strict;
use diagnostics;

my @matriz = ([1, 5, 1],
              [0, 1, 1],
              [9, 4, 2]);

my @matriz1 = ([2, 2, 3],
              [0, 8, 8],
              [1, 3, 7]);

my @matriz_suma =([],[],[]);

#Sumar dos elementos directamente.
print $matriz[0][1] + $matriz1[0][0],"\n";


print @{$matriz[0]},"\n"; #Imprime una fila (empezando a contar en 0).
print $#matriz,"\n\n"; #Me devuelve el numero de filas
print $#{$matriz[0]},"\n"; #Me devuelve el numero de columnas


#Suma  @matriz + @matriz1
for my $i ( 0 .. $#matriz ) {
    for my $j ( 0 .. $#{$matriz[$i]} ) {
        my $suma = $matriz[$i][$j] + $matriz1[$i][$j];
        $matriz_suma[$i][$j] = $suma;
    }
}

#Imprime una matriz por filas, en este caso la matriz suma.
for my $i ( 0 .. $#matriz_suma ) {
    print @{$matriz_suma[$i]} ,"\n";
}

#Imprime una matriz elemento a elemento.
for my $i ( 0 .. $#matriz_suma ) {
    for my $j ( 0 .. $#{$matriz_suma[$i]} ) {
        print $matriz_suma[$i][$j]," | ";
    }
}

print @{$matriz_suma[$i]} ,"\n";

print "@{$matriz_suma[$i]}\n";