I too just tried this out. Works brilliantly first go. I modified it to traverse my MP3 directories instead of using a playlist using a common bit of stolen code:

use File::Find;

my @songs;

sub eachFile {
  if (-e $_ && $_ =~ /\.mp3$/) { push @songs, $File::Find::name;}
}

find (\&eachFile, "/storage/mp3/");
[download]

I've got this running under Debian on an old Pentium holding over 7000 MP3s and it creates the array suprisingly fast.

Ryan