my @found = grep { -f && /\.pl/ } @array;