Select Code to Download

    for (my $i = 0; $i < scalar @{$self->{'trolley'}}; $i++) {
...
        }
    }

    for ( my $i = $#{ $self->{ trolley } }; $i >= 0; --$i ) {
...
        }
    }