#!/usr/local/apps/perl/bin/perl
#############################################################################
#                                                                           #
#  WHO:    John L. Moreland                                                 #
#                                                                           #
#  WHAT:   lists                                                            #
#                                                                           #
#  WHY:    Exercise to work with list basics.                               #
#                                                                           #
#  WHERE:  Opus Software                                                    #
#                                                                           #
#  WHEN:   Sun Sep  6 17:35:23 PDT 1998                                     #
#                                                                           #
#  HOW:    PERL                                                             #
#                                                                           #
#############################################################################

@foo = ( "ape", "cat" );

$a = shift( @foo );
unshift( @foo, $a, "bat" );

$, = " "; print @foo, "\n";