#!/usr/local/bin/perl
@array = (1, 2, 3, 4);
@subarray = @array[1,2];
print ("The first element of subarray is $subarray[0]\n");
print ("The second element of subarray is $subarray[1]\n");

@array = (1, 2, 3, 4, 5, 6);
@subarray = @array[1..4];
print(@subarray,"\n");

@array = (1, 2, 3, 4, 5, 6);
$endrange = 3;
@subarray = @array[1..$endrange];
print(@subarray,"\n");

@array = ("one", "two", "three", "four", "five", "six", "seven", "eight");
@range = (1, 3..5, 7);
@subarray = @array[@range];
print ("The array slice is: @subarray\n");

@array = ("old1", "old2", "old3", "old4");
@array[1,2] = ("new2", "new3");
print ("@array\n");

@array = ("one", "two", "three", "four", "five");
@array[1..3] = @array[2..4];
print ("@array\n");

print ('press ENTER to EXIT');
$in = <STDIN>;