#!/usr/bin/perl -w
@list = (1 , 2, 3, 4);
print "@list\n";
$listlen = @list;
$listlen2 = $#list;
print $listlen;
print $listlen2;
($x, $y) = @list[2,3];
print "$x\n";
print "$y\n";

pop @list; 
shift @list; 
unshift @list ,99;
push @list , 95;
print " I deleted first and last and then inserted 99 first and 95 last\n";
print "@list\n";