Select Code to Download

use Data::Dumper;
%fruits=();
...
}

print Dumper(\%fruits);

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