@temp = `head -1 *files`;

for ($i=0;$i<scalar @temp;$i++) {
   if ($temp[$i] =~ /^#!/) {              #fixed a typo
      print "$temp[$1-1], $temp[$i]\n";
   }
}