my @files;
find( sub { push @files, $_ if /\.mp3\z/ } => $root );