use strict;
use warnings;

my %hash;

for my $i ( 1 .. 5 ) {
	for my $k ( 0 .. 4 ) {
		${ $hash{ 'array' . $i } }[$k] = $i**$k;
	}
}

print "$_: @{ $hash{ $_ } }\n" for sort keys %hash;