foreach my $fileline (<$dir/*>) {
}