#!/usr/bin/perl
#w2.10.pl Trying out list functions: push(); pop();
@list = ("Bob", "Ted", "Carol", "Alice");

$first = shift(@list);
$last = pop(@list);
print <<EOT;

First is $first.
Last is $last.
List is now @list;

That's all folks.
EOT

