#!/usr/bin/perl
use strict;
use warnings;

my %hash = ( key => 'value');
my @array = (1..5);

foreach $hash{key} (@array){
  print "\$hash{key} is $hash{key}\n";
}