use strict;
use warnings;
use Path::Tiny qw/path/;

for ( path('/nfs/fm/stod/stod1031/w.eakanoje.101/power/')->children( qr/^mdp/ ) ) {
	print $_ . $/;
}