$anz_zeilen=0;
# Eingabe durch User
print" TAB_SORT.pl schreibt eine Spalte aus mehreren heraus\n";
print"\n";
print" Anzahl Zeilen des Feldes : ";
$anz_zeilen = <STDIN>;
print" Ab welcher Spaltennummer möchten Sie extrahieren ?";
$anfang = <STDIN>;
print" Wieviele Spaltennummern möchten Sie extrahieren ?";
$ende = <STDIN>;
open (input, "tab_sort.input");
open (output, ">tab_sort.out");
@lines =<input>;
print"\n";
for ($i=0; $i < $anz_zeilen; $i++)
 {
     @array1 = unpack("a$anfang a$ende", @lines[$i]);
# lösche erstes Element von @array1
     shift(@array1);
#     print " @array1\n";
     foreach (@array1)
     {
        push(@summe,$_);
     }
 }
@col_summe = join("\n", split(/;/, @summe));
print @col_summe;
print output @summe;
close (input);
close (output);