#!/usr/local/bin/perl -w
open ("in", "<passwd");
while (<in>)
{
($user) = split (/:/);
($user) = @user;
@sorted = sort (@user);
print "@sorted \n";
}
close "in";