#!perl
@array1 = qw( a b c );
@array2 = qw( x y z );
@array3 = qw( 3 9 6 );
while (<DATA>){
        chomp;
        no strict refs;
        s/^@//;
        print "@{$_}\n";
        }
__DATA__
@array1
@array2
@array3