#!perl -l
use strict;
use warnings;

my @array1 = qw(1 2 3 4 5);
my @array2 = qw(a b c d e);
my @array3 = qw(6 7 8 9 0);
my @array4 = qw(f g h i j);
while (<DATA>)
{
        foreach (eval("$_"))
        {
                print "$_";
        }
        print '';
}
__DATA__
@array1;
@array2;
@array3;
@array4;