Select Code to Download

my($index, $record) = (0);
while (<$fh>) {
...
    push @{$record->[$index]->{items}}, $1;
  }
}