PERL und awk

[Bernd]

my @array = ypcat -k passwd |awk '{print \$1}' ;

Ahhh, an das habe ich nicht gedacht, DANKE!