$HAN = "handle";
$FILE = "passwd.txt";
open("$HAN", "$FILE")||die "Error opening file: $!\n";
while(<$HAN>) {
@arr = <$HAN>;
}

foreach(@arr) {
	
	@IDINFO = split(/:/,"$arr[$_]");
	print "UID is: @IDINFO[2] \n";
	print "GID is: @IDINFO[3] \n";
}