Select Code to Download

use warnings;
use strict;
...
say "$_\t$dataset{$_}{dist}\t$dataset{$_}{chr}\t$dataset{$_}{exons}\t"
  . "$dataset{$_}{palindromes} "
    for sort { $a <=>  $b } keys %dataset;

$VAR1 = {
          '6700' => {
...
                    }
        };