#!/usr/bin/perl
while (<DATA>){
	print "erster Durchlauf: $_";
}
seek (DATA,0,0);
while (<DATA>){
	print "zweiter Durchlauf: $_";
}

__DATA__
1
2
3
4
5