Select Code to Download

if ( $function eq 'load' ) {
  # this
...
else {
  # any other stuff or something unexpected?
}

my $junk;
($junk,my $headsent,my $headword) =  split(/[sw]/,$h);

# no $junk anymore and no doubled 'my' !
my ( $headsent, $headword ) = ( split /[sw]/, $h )[1,2];