if($_->[1] =~ /\D/){ print "Ist ein String..."; }