Variables and Array Perl Program

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

print "$variable\n";

Output:
three