for my $file (glob "[0-9][0-9][0-9][0-9]*") {
  ...
}