my @list = <$dir1/*.*>;