push @data, { %tmp };

and later ..

print $data[0]->{COMPONENT};