sub new_lamps_for_old (\@) {
    my $old;
    map {
        $old = $_;
        $_ = Lamp->new();
        $old; } @{$_[0]};
}