%hash - from main
$VAR1 = 'foo';
$VAR2 = {
          'bar' => [
                     1,
                     2,
                     3,
                     4,
                     5,
                     6,
                     7,
                     8,
                     9,
                     10,
                     11,
                     12
                   ]
        };

##</code><code>##

%hash - from main
$VAR1 = 'foo';
$VAR2 = {
          'bar' => [
                     1,
                     2,
                     3,
                     4,
                     5,
                     6,
                     7,
                     8,
                     9,
                     [
                       10,
                       11,
                       12
                     ]
                   ]
        };

##</code><code>##

#!/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") );
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 @array;
	return @array;
}

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