#!/usr/bin/perl -w use strict; my %hash; $hash{test}->{"blah 1"} = 1; $hash{test}->{"blah 2"} = 1; foreach ($hash{test}) { print "$_\n"; }