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