foreach my $tag (@tags){
  die "found a blank" unless defined $tag;
  ....
}