my @files = ();
foreach (<*$count*>) {
    s/\.[^.]*$//;
    push @files, $_;
}