Select Code to Download

use Data::Dumper;
my $data = <<EOT;
...
push @{$hash{$1}}, $2 while $data =~ /(\S+)\s*:\s*(\S+)/g;

print Dumper(\%hash);

$VAR1 = {
          'label1' => [
...
                        'item2'
                      ]
        };