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