#!/usr/bin/perl -w

@array1 = (11 .. 15);
print "\@array1 is @array1\n";

print "\$array1[3] is ==>$array1[3]<==\n";

print "size-1 (last index) \$\#array1 is $#array1\n";
print "second to last value \$array[-2] is $array1[-2]\n";

($one,$two,$three) = (1, 2, 3);
print "\$two is $two\n";