#!/usr/bin/perl

@array1 = qw( a b c );
@array2 = qw( x y z );
@array3 = qw( 3 9 6 );

while (<DATA>){
		eval qq|print "$_"|;
        }