#!/usr/bin/perl

open PWFILE, "/etc/passwd";

while( <PWFILE> ) { chomp ;

	( $username, $pw,$uid,$gid )=split ":",$_ ; 
	 $userid{$username}=$uid;
	print "line__ ",$count," ",$_,"+++\n" ; $count=$count+1 
} 


while(<>){
	chomp;
	if( defined $userid{$_} ){
		print "user ",$_," has a uid of ",$userid{$_},"\n";
	};
}