Select Code to Download

my %final_hash;
foreach my $data_pair ( @data_list)
...

use Data::Dumper;
print Dumper \%final_hash;

my %final_hash = 
  map { $_->{key} => $_->{value} } 
...
#verify the output
use Data::Dumper;
print Dumper \%final_hash;

#!/usr/bin/perl -w

...

is_deeply( \%final_hash_long,  $expected, "long version works" );
is_deeply( \%final_hash_short, $expected, "short version works" );