$idxvalue = (pop(@indexes)+1);

print "$lines[$indexes[$idxvalue]]\n";