Try using the "defined" keyword:

if defined($nic->{ip}){
    print "DeviceMain: $nic->{device} has IP Address $nic->{ip}\n";
}

if defined($nic->{mask}){
    print "\tMask: $nic->{mask}\n";
}
[download]

etc...