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