Select Code to Download

$VAR1 = {
          'x' => 'cabd'
        };

#!/usr/bin/perl
use warnings;
use strict;
...
    $hash{'x'} .= $key;
}
print Dumper \%hash;