Select Code to Download

#!perl
use strict;
...
  push @{ $data{$master_key} }, \%set;
}
print Dumper \%data;