use Data::Dumper;
my @array = (1,2,3,4,5,6,7);
print Dumper(\@array);
my %hash;
# below is a hash slice - you should learn about these
@hash{@array} = @array;# a hash whose keys == its values
print Dumper(\%hash);

##</code><code>##

$VAR1 = [
          1,
          2,
          3,
          4,
          5,
          6,
          7
        ];
$VAR1 = {
          '7' => 7,
          '1' => 1,
          '2' => 2,
          '3' => 3,
          '4' => 4,
          '5' => 5,
          '6' => 6
        };