Select Code to Download

    $sn = $entry3;
    $$sn = new DEVICE;

    > I think the error is bogus, and that it somehow doesn't
    > like the anon reference thingie.

    $entry->[3] = new DEVICE;

    push @$entry, new DEVICE;