Select Code to Download

# reading from file
# format: LEAD=fred FRIEND=barney
...
  }
  push @AoH, $rec;
}

while ( <> ) {
  #$rec = {};
...
  }
  push @AoH, $rec;   #?
}