my @list = <dir/*.dat>;
print join("\n", @list);