Select Code to Download

print for 1..3;   # 123
print for 3..1;   # no output

my @a;
for (my $i=length($buffer)-1; $i>=0; $i--) {
...
my @a;
my $i = length($buffer);
$a[--$i] = chop $buffer while $i>0;