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

##</code><code>##

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

##</code><code>##

    $entry->[3] = new DEVICE;

##</code><code>##

    push @$entry, new DEVICE;