Select Code to Download

use strict;
use warnings;
...
);

print $_->(5) for @h;

use strict;
use warnings;
...
for my $fmt (sort keys %h){
  print "$value in $fmt is: ", $h{$fmt}->($value) , "\n";
}