#!/bin/perl -w
@arr1 = ("Panther","Panther","Panther");
$len = @arr1;
foreach $k (@arr1) {
        print $k," ";
}
print "\n";
print "another way to print:\n";
print "@arr1"."\n";
print @arr1."\n";

@arr2 = qw(lakers steelers penguins Jedis);
print "@arr2","\n";

#Now pushing arrays
print "-------pushing arr1 into arr2-----------\n";
push(@arr2,@arr1);
print "@arr2","\n";

#pushing one element in arr2
print "-------pushing another Panther-----------\n";
push(@arr2,$arr1[2]);
$len = @arr2;
for($i = 0;$i<$len;$i++) {
        print $arr2[$i]," ";
}

#pushing one element into the back
print "-------pushing endtrace to the back---------\n";
push(@arr2,"endtracer");
#print first,third,last element of arr2
@arr3 = ($arr2[0],$arr2[2],$arr2[-1]);
print "@arr3","\n";

print "another way to slice\n";
@arr3 = @arr2[0,2,@arr2-1];
print "@arr3","\n";

#add one to the beginning and one to the end
print "--------Add one to the beginning--------\n";
unshift(@arr3,"beginning");
print "--------Add one to the end--------\n";
push(@arr3,"newend");
print "@arr3","\n";

#Remove beginning and end
shift(@arr3);
print "**pop the begginning**\n";
print "@arr3","\n";
pop(@arr3);
print "**pop the end**\n";
print "@arr3","\n";

#Sorting
print "Normal Sort\n";
@arr3 = sort @arr3;
print "@arr3","\n";
print "Reverse Sort\n";
@arr3 = reverse sort @arr3;
print "@arr3","\n";