Select Code to Download

 
foreach $play (@ranked) {
    if (($play->{track} ne '') && ($play->{track} ne 0)){
...
             "$title$artist$play->{album}-$track");
    }
}

open(REPORT, ">report.dat") || die("Can't open output file");
@ranked = sort by_artist @hash;
...
    }
}
close(REPORT);