Foreach command in Perl

Script:
@array = qw(Apple Orange Banana);
$count = 0;
foreach $fruit (@array) {
print "Fruit $count: $array[$count] \n";
$count++;
}

Output:
Fruit 0: Apple
Fruit 1: Orange
Fruit 2: Banana

Variable length in Perl

Script:
$text = "Perl";
$value = length($text);

print "$value\n";

Output:
4

Reversed and Sort arrays in Perl

Script:
@array = ("one", "two", "three");
@reversed = reverse (@array);
print "@reversed \n";

@array1 = (5,6,4,3,7,2,8,1);
@sorted = sort(@array1);

print "@sorted \n";

Output:
three two one

1 2 3 4 5 6 7 8

Combining Two Arrays in Perl

Script:
@array1 = ("one", "two", "three");
@array2 = ("four", "five", "six");
@array3 = (@array1, @array2);

print "@array3 \n";

Output:
one two three four five six

Shift and Unshift Perl Program

Script:
@array = ("one", "two", "three");

unshift (@array, "zero");
print "@array \n";

shift (@array);

print "@array \n";

Output:

zero one two three

one two three

Variables and Array Perl Program

Script:
@array = ("one", "two", "three");
$variable = pop (@array);

print "$variable\n";

Output:
three

Push and Pop in Perl Program

Script:
push (@array, "one");
push (@array, "two");
print "@array \n";

pop (@array);

print "@array \n";

Output:
one two

one