open(REPORT, ">report.dat") || die("Can't open output file");
@ranked = sort by_artist @hash;
foreach $play (@ranked) {
    if($play->{track} != 0) {
        $title = $play->{title};
        $artist = $play->{artist};
        $album = $play->{album};
        $track = $play->{track};
        if(length($track) == 1){
            $track = '0'.$track;
        }       
        write REPORT;
    }
}
close(REPORT);