>>691
「普通にsplice利用すれば良い」ってだけだから
for文は好みにすればいいよ。
（実際の所はspliceもキモでもないんだけどw）
sub make_list{
　my @list = @_ ;
　my @out ;
　while( my $file = shift @list ){
　　push @out, $file;
　　next if ! -d $file;
　　unshift @list, sort glob "$file/*" ;
　}
　return @out;
}