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