...
foreach(@arr) {
    
    @IDINFO = split(/:/,"$arr[$_]");
...

##</code><code>##

$HAN = "handle";
$FILE = "passwd.txt";
open("$HAN", "$FILE")||die "Error opening file: $!\n";

##</code><code>##

open my $HAN, $FILE
    or die "Error opening file '$FILE': $!";

##</code><code>##

while(<$HAN>) {
@arr = <$HAN>;
}

##</code><code>##

...
	print "UID is: @IDINFO[2] \n";
	print "GID is: @IDINFO[3] \n";
...

##</code><code>##

	print "UID is: $IDINFO[2] \n";
	print "GID is: $IDINFO[3] \n";