$netdrivers = ($pin->net)->dump_drivers;

##</code><code>##

Net:in2
  Port: in2  in
  Pin:  U1.IN2  in
  Pin:  U2.IN2  in

##</code><code>##

$netdrivers = ($pin->net)->dump_drivers;
	       
my @netdrivers_split = split(/\n/,$netdrivers);
	     
foreach my $val (@netdrivers_split) {
          #some code
}


##</code><code>##

Net:in2
  Port: in2  in
  Pin:  U1.IN2  in
  Pin:  U2.IN2  in

##</code><code>##

$netdrivers = ($pin->net)->dump_drivers;
my @netdrivers_split = split(/\n/,$netdrivers);		
print @netdrivers_split;

##</code><code>##

Net:in2
  Port: in2  in
  Pin:  U1.IN2  in
  Pin:  U2.IN2  in
0 but true