# Sort a list of building ids alpha by name
@sorted_ids = sort {$data_struct{$a} cmp $data_struct{$b}} keys(%data_struct);