Select Code to Download

package MyTools;
use strict;
...
1;

__END__

#!/usr/bin/perl -w
use strict;
...
    my @words2 = qw(a able about above across actually after again all
+); 
    foreach (@words2) { $somewords2{$_} = "1"; }
}

syntax error at MyTools.pm line 16, near "$some_words{"
Compilation failed in require at ./cosa.pl line 3.
BEGIN failed--compilation aborted at ./cosa.pl line 3.