Select Code to Download

use strict;
use warnings;
...
}

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

array1: 1 1 1 1 1
array2: 1 2 4 8 16
array3: 1 3 9 27 81
array4: 1 4 16 64 256
array5: 1 5 25 125 625