for my $word (@sen) {
  next if ($word =~m/\A\s*\z/);
  do_something(word);
}