for my $i (0..$#records) {
   @{$records[$i]} = ($i, @{$records[$i]});
}