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);