Hi, I have following code: foreach my $row (@$array_ref) { my ( $usr, $usr_det, $pwd_val) = @$row; #print "\tuser id :$usr\n"; #print "\tcard no :$usr_det\n"; #print "\tpasswd :$pwd_val\n"; open (FILE, "<file_name") die "Could not open the file: $!"; while (<FILE>) {
