push @{$xml->{dut}}, {
  ipaddress => $ipaddress,
  macaddress => $Macaddress,
  model => $ProdShortName,
  frimware => $Firmware_Version, # I think you mean firmware, not frimware
};