use strict;
use warnings;

my $tmpf = 'farms';
my %factories = (farms => "Farmer Brown's");

print "$tmpf\n";   # prints 'farms'
print keys( %factories), "\n";   # 'farms' is one of them.
print "Is defined" if ( defined $factories{ $tmpf});