perl: wrong parsing for unquoted hash keys

[jumpercc]

no sub "tst" in code tree:

print $ENV{m};

sub tst() {
}