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