die "blah bla\n" if $name ne any( @array );