for( my $i = 0; $i < @detail - 1; $i++ )

##</code><code>##

for( my $i = 0; $i < $#detail; $i++ )

##</code><code>##

foreach my $i ( 0 .. $#detail ) {