#!/usr/bin/perl -w

#######################################################
# lab03_print2
#
# demo difference ""'s make around array names with print,
# WHEN array contents contain newlines!
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-7-04
#######################################################

if (@ARGV == 0)
{
    print "better type in something...: \n";
}

while (<>)
{
    push(@myArray, $_);
}

print "VERSION #1:\n";
print "---------------------\n";
print "@myArray";

print "\nVERSION #2:\n";
print "---------------------\n";
print @myArray;


# end of lab03_print2