Select Code to Download

if ( defined($hash{$key}) && hash{$key} =~ m/\w+/ ) {
    $hash{$key} = "Numbers: " . $hash{$key};
}

#!/usr/bin/perl
use warnings;
...
}

print $hash{$key}, "\n";

C:\>perl -cw bareword.pl
bareword.pl syntax OK

C:\>perl bareword.pl
Can't locate object method "hash" via package "c" (perhaps you forgot 
+to load "c"?) at bareword.pl line 13.