#!/usr/bin/perl

use strict;
use warnings;

# Dateiname
my $file = '/path/to/file.txt';

# öffne Datei zum lesen
# bei Fehler, gib die Fehlermeldung aus
open(my $fh,"<",$file) or die $!;

# lies die Zeilen ein
my @lines = <$fh>;

close $fh;

# sortiere die Zeilen aufsteigend (a-z)
@lines = sort{$a cmp $b}@lines;

# gib die Zeilen aus
print $_,"\n" for(@lines);

my @lines =<$fh>;
@lines = sort{$a cmp $b}@lines;

my @lines = sort{$a cmp $b}<$fh>;

#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/path/to/file.txt';

tie my @array,'Tie::File',$file or die $!;
@array = sort{$a cmp $b}@array;
print $_,"\n" for(@array);
untie @array;