#!/usr/bin/perl -w
use strict;

my @lines = ('Aschau 07426 KDNR23849',
              'Bobitz 23996 KDNR90123',
              'Coburg 96450 KDNR73369',
              'Dachau 85221 KDNR42563',
              'Erding 85435 KDNR73473',
              'Filsen 56341 KDNR84569',
              'Grimma 04668 KDNR24784',
              'Hobeck 39279 KDNR84747',
              'Inning 84416 KDNR57729',
              'Jeggau 39649 KDNR24729' );

my $spalte = 1; # die Spalte, nach der sortiert werden soll

@lines = map  { $_->[0] }
          sort { $a->[1] cmp $b->[1] }
          map  { [ $_, (split / /)[$spalte] ] } @lines;

print "$_\n" for @lines;