my @fives_idx = ();
my $i = 0;
foreach my $e (@lines) {
  if (5 == $e) {
    push @fives_idx, $i;
  }
  ++$i;
}