#!/usr/bin/perl

use strict;
use warnings;

my $x=0;
my @shift;
my @liste = `cat list.txt`; # wir sind auf linux

printf "Bedingungen: @ARGV \n";

while (@liste){
        @shift=shift(@liste);
        print "Aktuelle Zeile ist: ", @shift;
}