C:\Documents and Settings\m>perl -
@data1 = qw(1 2 3 4);
@data2= qw(5 6 7 8);
@data_All = (@data1, @data2);
print @data_All;
__END__

12345678    #It works fine!!