use strict;
use warnings;


my ( @array ) = qw/ one two three four /;
my $position = tell DATA;
print "\@array holds @array.\nPrinting DATA a few times:\n";
foreach( @array ) {
    while ( <DATA> ) {
        chomp;
        print $_, "\t";
    }
    print "\n";
    seek DATA, $position, 0;
}

print "Array: @array\n";

__DATA__
a
b
c