Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...
key6, value4
key7, value4

Original hash
$VAR1 = {
          'key3,' => 'value1',
...
                      ]
        };