# for(int i = len; i > 0; --i) { # C
    # for(my $i = $len; $i > 0; $i--){ # incorrect Perl
    for(my $i = $len; $i > 0; --$i){ # correct Perl