Select Code to Download

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

farms
farms
Is defined