#!/usr/bin/perl
use strict;
use warnings;


my $passwd = '/etc/passwd';
my @users = ();

open my $in, '<', $passwd or die "$passwd: $!\n";

while ( my $line = <$in> ) {

        my ( $user ) = split( /:/, $line, 2 );
        
        push @users, $user;
}

close $in;

@users = sort @users;

print "@users\n";

#!/usr/bin/perl
use strict;
use warnings;

my $passwd = '/etc/passwd';

open my $in, '<', $passwd or die "$passwd: $!\n";

# Listenkontext: Lese zeilenweise aus Filehandle, sortiere das gelesene
# splitte es am ':' in 2 Teile und nehme nur das erste; packe das ganze
# dann in @users
my @users = map { ( split(/:/, $_, 2) )[0] } sort <$in>;

close $in;

print "@users\n";