#!/usr/bin/perl

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

my %hash = (
	'@array1' => \@array1,
	'@array2' => \@array2,
	'@array3' => \@array3,
	);

while (<DATA>){
		chomp;
		print "@{ $hash{$_} }\n";
        }

__DATA__
@array1
@array2
@array3