#!/usr/bin/perl
@list = qw(one, two, three);         # initialize @list
$last = pop(@list);                 # $last is the last elemenet in the list
print ("$last\n");                  # prints $last and goes to a new line
_END_
