@data = map { [split] } <>;
@data = sort { $a->[0] cmp $b->[0] ||
               $a->[3] <=> $b->[3] } @data;
print "@$_\n" for @data;
__END__
ID12 KBrH 2e-26 22400316 22400515  
ID34 BrH0 2e-05 3876860  3876936  
ID12 BrH0 2e-05 3876700  3873500
[download]