for my $file (glob('*')) {
#....do stuff
}