Select Code to Download

use strict;
use warnings;
use Data::Dumper;
...
  $foo{$1}=$2;
}
print Dumper \%foo;

$VAR1 = {
          'key4=' => 'value7 ',
          'key5=' => 'value8 ',
...
          'key5' => 'value8 ',
          'key6' => 'value9 '
        };