Select Code to Download

use strict;
use warnings;
...
CIMG_00048 506
CIMG_00053 167
CIMG_00063 469

perl -le '
use Data::Dump qw/dump/;
...
print dump \%hash;
'
{ a => 1, b => 6 }