for my $i ( reverse ( 0 .. 10 ) ) {
    print "$i\n";
}