my $facvalue = param('name'); my $facrowid = $ARGV[0] || $facvalue; my %facdata = (); my @facfields = split(/\t/, ); chomp @facfields; while() { chomp; my @facrow = split(/\t/); if ($facrow[0] eq $facrowid) { ******push @facdata{@facfields} = @facrow; ******* last; } } close (FILE);