Select Code to Download

use strict; use warnings;
use Data::Dumper;
...
%output = reverse %output;

print Dumper \%output;

$VAR1 = {
          '60' => '2',
          '40' => '1'
        };