use warnings;
use strict;

my @holdings = qw(
    green
    blue
    yellow
);

for (my $count = 2 ; $count >= 0 ; $count-- ) {
    my $tempvar = $holdings[$count];
    print "$tempvar<br>";
}

print "\n";

__END__

yellow<br>blue<br>green<br>