Select Code to Download

my $save = $h2->{FOO}->[1];
$h2->{FOO}->[1] = $h1->{FOO}->[1];
... compare ...
$h2->{FOO}->[1] = $save;