for my $Str ($zero_arg, $sec_arg){
  die "$Str is not in routers.txt" unless grep {$_ eq $Str} @Routers;
  if (grep {$_ eq $Str} @Interfaces){
    # The string is a good name, and it appears in @Interfaces
    # so do something
  }
}