Insérer tableau dans tableau associatif

# déclaration
my @TABLEAU;

# affectation
$TABLEAU[0][0] = "titi";

$TAB{$i}{2} = \@TABLEAU;

#!/usr/bin/perl

use strict;
use warnings;

my %hash;
$hash{0}{0} = "toto";
$hash{0}{1} = "1";

my @arr;
$arr[0][0] = "titi";
$arr[0][1] = "tata";

# on assigne une référence au tableau
$hash{0}{2} = \@arr;

print "Affichage du contenu du tableau référencé :\n";
# afficher "titi"
print $hash{0}{2}[0][0] . "\n";
# afficher "tata"
print $hash{0}{2}[0][1] . "\n";

# modification d'un élément du tableau
print "modification d'un élément du tableau\n";
$arr[0][0] = "tutu";

print "Affichage après modification\n";
# l'affichage en passant par la référence affiche tutu
print $hash{0}{2}[0][0] . "\n";
# afficher "tata"
print $hash{0}{2}[0][1] . "\n";

Affichage du contenu du tableau référencé :
titi
tata
modification d'un élément du tableau
Affichage après modification
tutu
tata

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# for storing all the park
my %park;

# for adding a new hardware
sub add_hardw {
    my ($serial_num, $name, $type, $date_bought, $ram, $hd) = @_;
    my @failures;

    # adding an entry to the hash using the serial number as the key, cloning the values
    $park{$serial_num} = {
        name => $name,
        type => $type,
        date_bought => $date_bought,
        ram => $ram,
        hd => $hd,
        failures => \@failures
    };
}

print "Création d'une nouvelle entrée pour un matériel\n";
add_hardw("123456", "PC12", "desktop", "2014-02-26", "4GB", "500GB");

print "ajout de quelques pannes\n";
push $park{"123456"}{failures}, "2015-01-05 - panne du ventilateur";
push $park{"123456"}{failures}, "2015-01-06 - câble ethernet sectionné";

print "affectation d'une référence de la liste des pannes d'un matériel à un scalaire \$temp\n";
my $temp = $park{"123456"}{failures};

print "changement du libellé de la première panne en passant par %park\n";
$park{"123456"}{failures}[0] = "2015-01-05 - panne du ventilateur (coincé par un stylo)";

print "changement du libellé de la seconde panne en passant par \$temp\n";
@$temp[1] = "2015-01-06 - câble ethernet sectionné (dévoré par un rongeur)";

print "Création d'une nouvelle entrée pour un autre matériel, avec ajout d'une panne\n";
add_hardw("123457", "Imprimante YH", "imprimante", "2014-05-02", "1GB", "150GB");
$temp = $park{"123457"}{failures};
push @$temp, "2015-01-06 - l'imprimante ne s'allume plus";
                                                                                                                                                                                                                   
print Dumper(%park);

failures => \@failures

$park{"123456"}{failures}[0]