our $holding1 = "green";
our $holding2 = "blue";
our $holding3 = "yellow";

for (my $count = 3; $count >= 1; $count--) {
    print do {no strict 'refs'; ${"holding$count"}}, "\n";
}