my %incoming = &read_input;	# Read information into associated
				# array %incoming.
my $qty = $incoming{'qty'}; # Fetch the text from the array.
my $type = $incoming{'type'}; # Fetch the text from the array.
my $equip = $incoming{'equip'}; # Fetch the text from the array.
my $dept = $incoming{'dept'}; # Fetch the text from the array.
my $fstore = $incoming{'fstore'}; # Fetch the text from the array.
my $dreceived = $incoming{'dreceived'}; # Fetch the text from the array.
my $rstore = $incoming{'rstore'}; # Fetch the text from the array.
my $ringstore = $incoming{'ringstore'}; # Fetch the text from the array.
my $dated = $incoming{'dated'}; # Fetch the text from the array.
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.

##</code><code>##

my %data;

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

##</code><code>##

my @hashes;

push @hashes, $data;