#!/usr/bin/perl -w

#######################################################
# lect02_reverse_sort
#
# playing with reverse, sort
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 8-31-04
#######################################################

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 
print "\@myArr contains:\n";
foreach ( @myArr )
{
    print "$_ ";
}

@backwards1 = reverse @myArr;
@sorted1 = sort @myArr;
@backwards2 = reverse qw/ Apple apple Berry berry /;
@sorted2 = sort qw/ Apple 4 apple 3 Berry 12 berry /;

# print contents of the four arrays set above
print "\n\n\@backwards1 contains: \n";
foreach ( @backwards1 )
{
    print "$_ ";
}

print "\n\n\@sorted1 contains: \n";
foreach ( @sorted1 )
{
    print "$_ ";
}

print "\n\n\@backwards2 contains: \n";
foreach ( @backwards2 )
{
    print "$_ ";
}

print "\n\n\@sorted2 contains: \n";
foreach ( @sorted2 )
{
    print "$_ ";
}

print "\n";

# can I change the array itself? Hypoth: YES if assign to itself

@myArr = reverse @myArr;

print "\@myArr after reverse and assignment: @myArr\n";


# end of lect02_reverse_sort