foreach $play (@ranked) {
    if (($play->{track} ne '') && ($play->{track} ne 0)){
        $title = pack("A32", "$play->{title}");
        $artist = pack("A32", "$play->{artist}");
        $album = $play->{album};
        $track = $play->{track};
        if(length($track) == 1){
            $track = '0'.$track;
        }
        $listbox->insert('end',                          
             "$title$artist$play->{album}-$track");
    }
}

##</code><code>##

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);