Select Code to Download

push @data, %tmp;

push @data, { %tmp };

and later ..

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

#!/usr/bin/perl
use warnings;
...
1,2,3,4,5
2,3,4,5,6
3,4,5,6,7