use strict;
use warnings;

use Devel::Peek qw( Dump );

my $dir = '/media/usbdisk/music/checkit/Crosby, Stills, Nash & Young';

opendir(my $dh, $dir)
   or die;

while (defined(my $fn = readdir($dh))) {
   Dump($fn) if / vu$/;
}