#!/usr/bin/perl

use strict;
use warnings;

print "\nGeben sie den zu sortierenden Text ein.\n";
my @data = <STDIN>;
                                        #das folgende ist für das sortieren der daten
                                        #was was macht findest du in einem kommentar am rand
                                        #das ist nur ein coden schnipsel der später mit dem vollständigen code kombiniiert wird
#print $data [1];
#print $data [0];


@data = sort { $a cmp $b } @data;       #sortiert das array alphabetisch

foreach (@data){                        #schreibt den sortierten text 
        print $_ ;                      #in eine textdatei
}                                       #