use strict;
use warnings;

my @treffer;
my $suche  = 1;
my $spalte = 5;
my @zeilen = (
   "120\t0\t1\t1\t0\t1\t0.5\t12",
   "130\t1\t0\t0\t0\t0\t0.4\t8",
   "130\t1\t0\t0\t0\tD\t0.4\t8",
);

while (defined (my $line = shift @zeilen)) {
   my $wert = (split/\t/, $line)[$spalte];
   push @treffer, $wert
      if $wert =~ /^$suche$/;
   # hier verwende ich mit Absicht nicht $wert == $suche,
   # denn falls $wert keine Zahl ist, wuerde '==' einen 
   # Fehler ausloesen
}