use 5.10.0;

for my $line ( @lines ) {
  state $i;
  print $i++, $line;
}