for my $key (keys %FMW)
{
print "fmw-$key =\[$FMW{$key}\]\n";
print "env-$key =\[$ENV{$key}\]\n";
print "MISMATCH!\n" if $FMW{$key} ne $ENV{$key};
}