#!/usr/bin/perl -w

#######################################################
# lect02_list1
#
# assigning arrays to contain list literals
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 8-30-04
#######################################################

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, "a" .. "d");

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

    }

    $ct++;
}

# end of lect02_list1