#!/usr/bin/perl


open(DIR,"ls GAS.*.cube.fits.gz |");
while($file=<DIR>) {
    chop($file);
    $name=$file;
    $cut="GAS.";
    $name =~ s/$cut//;
    $cut=".cube.fits.gz";
    $name =~ s/$cut//;
    $file2="HII.".$name.".rss.pt.txt";
    open(DIR2,"ls $file2 | wc -l |");
    $out=<DIR2>; chop($out);
    if ($out==0) {
	print "$name $out\n";
    }
    close(DIR2);
} 
close(DIR);

exit;