if ($methode == 1) {
    my $start = time();
    my $uniccol = Unicode::Collate->new();
    foreach my $z (reverse (0 .. $spalten-1)) {
        @{$data{spalten}} = sort {$uniccol->cmp($a->[$z],$b->[$z])}
        @{$data{spalten}};
    }
#   foreach my $feldref (@{$data{spalten}}) {
#       print "@$feldref\n";
#   }
    print "\nLaufzeit: ".(time()-$start);
}