@array1 = ('one','two','three');
@array2 = ("four","five","six");
print "@array1\n@array2";

#OUTPUT
one two three
four five six

##</code><code>##

@array = qw(one two three);
print @array, "\n";
print "@array\n";
print '@array\n';
__END__
onetwothree            #array elements are fused.
one two three          #spaced and the "\n" replaced with a new line.
@array\n               #prints @array and "\n" as literals.


##</code><code>##

use strict;    #a good habit to start your program with line
use warnings;  #another good habit too...

my @array1 = ("one", "two", "five");
my @array2 = ("three","four");

my @array3 = ("one","two",@array2,"five");
my @array4 = ("one","two",'@array2',"five");
my @array5 = ("one","two","@array2","five");
print "@array3\n";
print "@array4\n";
print "@array5\n";


##</code><code>##

@array = qw(one two three four);
for($index=0;$index<=$#array;$index++){
     print $array[$index],"\n";
     }