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

##</code><code>##

@array holds one two three four.
Printing DATA a few times:
a       b       c
a       b       c
a       b       c
a       b       c
Use of uninitialized value in join or string at mytest.pl line 20, <DATA> line 12.

Use of uninitialized value in join or string at mytest.pl line 20, <DATA> line 12.

Use of uninitialized value in join or string at mytest.pl line 20, <DATA> line 12.

Use of uninitialized value in join or string at mytest.pl line 20, <DATA> line 12.

Array: