simply reverse the list

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