Select Code to Download

sub parse1 {
    my ($filehandle,$data) = @_;
...
    # read from $filehandle and add to $data
}
# etc.

my %data;
$data{piece1} = parse1($fh);
...
    # read from $filehandle
    return $data;
}