my %nicdata = networkInfo($platform); for (@nicdata) { print "Device: $nic{device} has the IP Address of $nic{ip}\n\tMask: $nic{mask}\n\tBroadcast: $nic{bcast}\n"; print "Device: $nic{device} also has IPv6 address of $nic{ip6}\n"; }