use List::Util qw[ shuffle ];

my @tracks = shuffle readTracks( 'myMusicDB' );

while( $listening ) {
    push @tracks, ( my $nextTrack = shift @tracks );
    play $nextTrack;
}