#!/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;
}