my %data;

for my $tab ( 1 .. 3 ) {
    my @array = frobnicate($tab);
    printf "Array ref: %s\n", \@array;
    printf "Annoymous: %s\n", [@array];
    $data{$tab} = \@array;
}

sub frobnicate {
    return ( 0 .. shift );
}
__END__
Array ref: ARRAY(0x826a924)
Annoymous: ARRAY(0x8183a54)
Array ref: ARRAY(0x819f318)
Annoymous: ARRAY(0x8183798)
Array ref: ARRAY(0x826ade8)
Annoymous: ARRAY(0x819f304)