sub print_contig_information {
 my $number = shift;
 foreach my $key (sort { $a <=> $b } keys %master) {
      if ($number < $key) {
         my $chromosome = $master{$key}{chromosome};
         my $contig     = $master{$key}{contig};
         #do whatever processing here; I'll just print

         print "chromosome = $chromosome, contig = $contig\n";
      }
   }
}