#!/usr/bin/perl -w use strict; my %aoh = ( 'item' => ['indiv_conf', 'organ_conf', 'comp_conf','sfsfs','afafa' ] ); foreach my $i ( keys %aoh) { if ($i eq'item') { foreach(@{$aoh{$i}}) { print "The item is $_\n"; } } }