use List::Util qw( none all any );
for my $name (@test)
{
  print "None > $name\n" if none { $name eq $_ } @invalid_list;
  print "Any  > $name\n" unless any { $name eq $_ } @invalid_list;
  print "All  > $name\n" if all { $name ne $_ } @invalid_list;
}