#!/usr/bin/perl -w

#######################################################
# lect02_foreach2
#
# playing with foreach - part 2
# using $_ to hold current value of array/list being
#    worked through, instead of an explicit loop
#    control variable
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 8-31-04
#######################################################

# count to 10...
foreach (1..10)
{
    print "$_ ";
}
print "\n\n";


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

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

# swap range ends if user got 'em backwards!
if ($left_val > $right_val)
{
    ($right_val, $left_val) = ($left_val, $right_val);
}

@myArr = ($left_val..$right_val);

# print each value in @myArr on its own line
print "\@myArr contains:\n";
foreach ( @myArr )
{
    print "$_\n";
}


# end of lect02_foreach2