my @files = <$dir/*>;
foreach my $file (@files)