#!/usr/local/bin/perl

while (<>)
{
	@entries = split(':',$_);
        $names{$entries[0]} = $_;
}

foreach $uidname ( sort keys(%names) )
{
        print $names{$uidname},"\n";
}