for my $i ( 0 ... scalar @entries - 1 ) {

}