my @files = grep (/^source*/, @arr1);