use strict;
use warnings;

my %arrays;

push @{$arrays{awesome_array}}, 1 .. 5;

for my $element(@{$arrays{awesome_array}}){
	print "$element\n";
	push @{$arrays{another_awesome_array}}, $element;
	}

for my $arrayName (keys %arrays) {
    print "$arrayName: @{$arrays{$arrayName}}\n"
}

##</code><code>##

1
2
3
4
5
awesome_array: 1 2 3 4 5
another_awesome_array: 1 2 3 4 5