Select Code to Download

my %incoming = &read_input;    # Read information into associated
                # array %incoming.
...
my $comment = $incoming{'comment'}; # Fetch the text from the array.
my $id = $incoming{'id'}; # Fetch the text from the array.
my $action = $incoming{'action'}; # Fetch the text from the array.

my %data;

$data{'qty'} = $incoming{'qty'};
$data{'type'} = $incoming{'type'};
# etc...

my @hashes;

push @hashes, $data;