http://qs321.pair.com?node_id=55323

malaga has asked for the wisdom of the Perl Monks concerning the following question:

am i even close here? the line with the ******** is the problem. i'm trying to retrieve each row that matches $facvalue and push to one array.
my $facvalue = param('name'); my $facrowid = $ARGV[0] || $facvalue; my %facdata = (); my @facfields = split(/\t/, <FILE>); chomp @facfields; while(<FILE>) { chomp; my @facrow = split(/\t/); if ($facrow[0] eq $facrowid) { ******push @facdata{@facfields} = @facrow; ******* last; } } close (FILE);