#!/usr/bin/perl
use strict;
use warnings;

my $datei=shift(@ARGV) or die "$0 dateiname";

open(DATEI,'<',$datei) or die "Konnte $datei nicht lesen ($!)\n";
while (my $line=<DATEI>)
{
  @elemete=split(/\t/,$line);
  if($elemente[6] == 1)
  {
   print "Die Zeile: |$line| enthält ander sechsten Stelle eine 1\n";
  }
}
close(DATEI);

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
}

if $wert eq "$suche"

  if($elemente[6] == 1) ...

$str = "42xxx";

if ( $str == 42 ) {
  print "BINGO !\n";
}