#!/usr/bin/perl
@list = qw(three four five);       # initialize @list
@list2 = qw(two one);              # initialize @list2
splice (@list2, 1, 1, @list);      # this replaces the last element of @list2 ("one") with the first element of @list2
print ("@list2\n");		   # prints new @list2 and goes to a new line
_END_
