#!/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);