Select Code to Download

use strict;
use warnings;
...
Data::Dump::Streamer::Dump \%switch_param;
print "\n\n";
print Data::Dumper::Dumper (\%switch_param);

$HASH1 = { optional => [
           { foo => 'bar' },
...
                          $VAR1->{'optional'}[0]
                        ]
        };