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