Shouldn't that be

#!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
[download]

UPDATE: All I had to do was put the arrays in the data section, never mind! (Originally I thought it was another problem.)