#!/usr/bin/perl
@list = qw(one, two, three);       # initialize @list
$first = shift(@list);             # $first is set to the 1st element
print ("$first\n");                # prints $first and goes to a new line
_END_
