Warning untested code below:

for my $build_no (sort { $data_struct{$a}->[0] cmp
                         $data_struct{$b}->[0]     }
                       (keys %data_struct)  ) {
print "$build_no => $data_struct{$build_no}->[0]\n";
}
[download]

-Blake