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