my $fh = $Unique_DeviceType{$Unique_SN{$sn}->devicetype};
    print $fh ...