grep (/$filename/i, $key) foreach my $key (keys %path_versions) #### >perl -wMstrict -le "my @words = qw(foo bar baz); print qq{'$_'} foreach @words; " 'foo' 'bar' 'baz'