Select Code to Download

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

$VAR1 = [
          1,
...
          '5' => 5,
          '6' => 6
        };