Help for this page

Select Code to Download


  1. or download this
    my @colors = qw(red green blue yellow pink purple brown);
    my $count = @colors;
    ...
        print $num, ":  after: @colors\n--\n";
    }
    print "@colors \n";