#!/usr/bin/perl 
use strict;
use warnings;
use Tie::File;
use Data::Dumper;

my $datei = q(file.txt);

use Tie::File;

tie my @array, 'Tie::File', $datei or die $!; # @array mit Tie::File an $datei binden

# jetzt etwas mit @array anstellen 
my $anzahl_zeilen = @array;
my $anzahl_zu_kop_zeilen = q(3);
my @spalten;

for ( my $i = ($anzahl_zeilen - $anzahl_zu_kop_zeilen); $i < $anzahl_zeilen; $i++){ 
    @spalten = split("\t", $array[$i]);
    print join(",",$spalten[2] .. $spalten[5]), "\n";
}

#print Dumper \@spalten;
untie @array;  #und wenn's erledigt ist untie