Select Code to Download

use Data::Dumper;
@ar=([1,1],[1,2],[3,5],[6,7]);
...
print Dumper(\%hash);

$VAR1 = {
          '6' => 7,
          '1' => '1,2',
          '3' => 5
        };