Select Code to Download

my @aBuildings;
while (my $line=<MYFILE>) {
...
  };
  push @aBuildings, $hLine;
}

  foreach my $hLine (sort { $a->{name} cmp $b->{name} } @aBuildings) {
    #print out contents of $hLine
  }