Consider the following statement:

@array1 = (9, "A", 0..9, "PERL");

Given this statement, @array1 consists of how many elements?

Which one of the following while statements uses correct syntax and expressions?

Consider that a file named test.txt contains this line of text:

One line of test text.

What is the output of the following lines of code?

$file = "test.txt";

open (OUT, "<$file") || (die "cannot open $file: $!");

seek(OUT, 15, 0);

read(OUT, $buffer, 5);

print $buffer . "\n";

print tell(OUT);

Which of the following choices demonstrates the correct syntax to pass the argument $arg2 to the subroutine getpass?

Consider the following assignments:

$x = 9

$y = 7

$z = 5

Given these assignments, which one of the following expressions evaluates as true?

Consider the following program code:

@stack = (10, 10..25);

push(@stack, yellow);

shift(@stack);

push(@stack, white);

print shift(@stack);

What is the result of executing this program code?

Consider the following program code:

@array = ("ALPHA", "beta", "GaMmA");

sort(@array);

print("@array");

What is the output of this code?

Consider the following lines of code:

sub mySub { (

$arg, @args) = @_;

foreach $val (@args) {

$returnVal .= "$arg, $val\n";

}

$returnVal . "" . @args;

}

print &mySub(1, "a value", "another value", "a parameter", "another parameter");

What is the output of these lines of code?

Consider the following code:

@cities = qw( Pittsburgh Atlanta Nashville Boston );

$city = join (":", @cities);

What is the value of $city after the code is executed?

Consider the following program code:

@array = ("ALPHA", "beta", "GaMmA");

sort(@array);

print("@array");

What is the output of this code?