foreach my $i (sort {$a <=> $b} keys %main){
  push @values, $main{$i};
}