Select Code to Download

#!/usr/bin/perl

...
  say Dumper($ret{$id}{result});
}

## read_genome
$VAR1 = {
...
          'gg' => 'hh'
        };