use Fcntl qw/ :seek /;
my $pos = tell DATA;
# erster durchlauf
seek DATA, $pos, SEEK_SET; # immer die konstanten benutzen!
# zweiter durchlauf