$c = 0;
while(<>) {
    chop;
    ($file[$c], $ext) = split(/\./);
    $file[$c] = $file[$c];
#     print $file[$c];
    $c++;
}

print "CONTENTS: ";
for ($i = 0; $i < $c; $i++) {
    print "$file[$i] ";
}
print "\n";

for ($i = 0; $i < $c; $i++) {
    printf("%-9s %s \n", $file[$i].":", $file[$i]);
    for ($j = 0; $j < 10; $j++) {
	printf("%-9s \n", $file[$i].":");
    }
}

