#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash;
my %source;

my @array = (10 .. 12);
$source{'data'} = \@array;
print "\n".'%source'." - from main\n". Dumper %source;

push (@ { $hash{"foo"}{"bar"} } , addSomeNumbers(1,3) );
print "\n".'%hash'." - from main\n". Dumper %hash;

push (@ { $hash{"foo"}{"bar"} } , addSomeNumbers(4,6) );
print "\n".'%hash'." - from main\n". Dumper %hash;

push (@ { $hash{"foo"}{"bar"} } , addSomeNumbersVia2ndSub(7,9) );
print "\n".'%hash'." - from main\n". Dumper %hash;

push (@ { $hash{"foo"}{"bar"} } , @{ (addSomeNumbersFromSource("data")
+)[0] } );
print "\n".'%hash'." - from main\n". Dumper %hash;

sub addSomeNumbers{
    my ($start, $end) = @_;
    my @array = ($start .. $end);
    print "\n".'@array'." - from addSomeNumbers\n". Dumper @array;
    return @array;
}

sub addSomeNumbersVia2ndSub{
    my ($start, $end) = @_;
    my @array = addSomeNumbers($start, $end);
    print "\n".'@array'." - from addSomeNumbersVia2ndSub\n". Dumper @a
+rray;
    return @array;
}

sub addSomeNumbersFromSource{
    my ($data) = @_;
    my @array = $source{$data} ;
    return @array;
}
[download]