Select Code to Download

while (my $line=<MYFILE>) {
  chomp $line;
  #set up hash entry
}

my $buildings={};  #set up a hash reference
while (my $line = <MYFILE>) {
...
}
# ... more stuff
print_hash($buildings);