#!/usr/bin/perl -w
use strict;

my %hash;

print "wow\n" if $hash{foo}{bar};
print $_, $/ for keys %hash;