#!/usr/bin/perl
@list = qw(one, two, three);        # initialize @list
$new_number = ("four");             # set $new_number to "four"
unshift (@list, $new_number);       # @list is now (four, one, two, three)
print ("@list\n");                  # prints @list and goes to a new line
_END_
