#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $dir = '/path/to/directory';
{
  opendir(DIR,$dir) or die $!;
  my @files = grep{$_ !~ /\.?\./}readdir(DIR);
  closedir DIR;

  local $/ = "\nFeld";
  my @array;
  for my $file(@files){
    my %hash;
    open(my $fh,'<',$file) or die $!;
    while(my $line = <$fh>){
      chomp $line;
      my ($nr) = $line =~ /^\s*(\d+)/;
      $hash{$nr} = $line;
    }
    close $fh;
    push @array,\%hash;
  }

  @array = sort{$a->{1} cmp $b->{1}}@array;
}

print Dumper(\@array);