opendir(DIR,"fakes")||die;
@files=readdir(DIR);
closedir(DIR);
foreach my$file(@files)
{
    my ($artist, $title) = split /-/, $file;
    $artists{$artist}++;
}
%p = reverse %artists;
foreach my $count(sort{$b<=>$a} keys %p)
{
    print "$count\t$p{$count}\n";
}