Select Code to Download

my $range_start = 700;
my $range_end   = 1200;
...
foreach my $ranger ( sort { $a <=> $b } keys %out ) {
    print $ranger, ' - ', $out{$ranger}, "\n";
}

my $range_start = 700;
my $range_end   = 1200;
...
    print join ', ', @{$out{$ranger}};
    print "\n";
}