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