#!/usr/bin/perl -w

#######################################################
# class2_07_qw
#
# seeing how qw works
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 4-10-03
#######################################################


@arr1 = ("cis130", "cis230", "cis250", "cis260");
@arr2 = qw/ cis130 cis230 cis250 cis260 /;
@arr3 = qw( cis130 cis230 cis250 cis260 );

$ct = 0;
print "\@arr1    \@arr2    \@arr3\n";
print "------   ------   ------\n";
while ($ct <= $#arr1)
{
    print "$arr1[$ct]   $arr2[$ct]   $arr3[$ct]\n";

    $ct++;
}

# end of class2_07_qw