#!/usr/bin/perl

use strict;
use warnings;

print "\nGeben sie den zu sortierenden Text ein.\n";

my @data;                                               #das array
while ( my $line = <STDIN> ) {                          #while schleife
    chomp $line;                                        #
    last if ! $line;                                    #
    push @data, $line;                                  #
}

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

foreach (@data){
        print "$_\n" ;
}