Select Code to Download

...# As before
my @extras  = grep {$_->{status} eq 'Extra'} @$data;
...
    }
    print Dumper($main);
}

$VAR1 = {
          'state' => 'TO',
...
          'status' => 'Main'
        };