#!/usr/bin/perl
# w2.8.pl  adding elements to a list


@list = ("Don", "Eve");
@list = (@list, "Fred","George");
@list = ("Cathy", @list,);
push(@list, "Harry");
unshift(@list, "Betty");

print (@list, "\n");
__END__

