#!/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);