my @colors = qw/ green blue yellow/;

for my $color (reverse @colors) {
    print "$color<br>";
}