Select Code to Download

use strict;
use warnings;
...
   $app_text;

print Data::Dumper->Dumpxs( [ \ %fvPairs], [ q{*fvPairs} ] );

%fvPairs = (
             'three' => 'french hens',
             'one' => 'partridge',
             'two' => 'turtle doves'
           );