#!/usr/bin/perl -w

#######################################################
# class2_06_list1
#
# assigning arrays to contain list literals
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-10-03
#######################################################

print "give beginning of range: ";
chomp($left_val = <STDIN>);

print "give ending of range: ";
chomp($right_val = <STDIN>);

@myArray = (3, $left_val..$right_val, 16);

$ct = 0;
while ($ct <= $#myArray)
{
    print "\$myArray[$ct]: ";
    if (defined($myArray[$ct]))
    {
        print "$myArray[$ct]\n";
    }
    else
    {
        print "undef\n";

    }

    $ct++;
}

# end of class2_06_list1