Select Code to Download

foreach my $a (@names){
    if($a->atomName eq 'N'){
...
        $main{4}=$a;
    }
    }

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