perl -MData::Dumper -e '$struct->{SWITCH}->[0] = 1; delete $struct->{SWITCH}; print Dumper $struct'