my $x=1; foreach(@arr){print $x++ if (/foo/)}