# Display RexExp results
print STDERR join("\t",@arguments),"\n";

<here add all data from @argumens to a DB (as described in the original post)>

# check if data parsed successfully
my $sql2 = 'SELECT *
	FROM hist_mod_score
	WHERE Counts=?';
	$sth = $dbh->prepare($sql2) or die $dbh->errstr;
	$sth->execute($index) or die $sth->errstr;

# dump fetched query results	    
	$sth->dump_results if $sth->{NUM_OF_FIELDS};

##</code><code>##

0	SM_Th2_1_K27ac	SM	Th2	1	K27ac	Tbx21-1	4.88786132768108e-10
0 rows
1	SM_Th2_1_K27ac	SM	Th2	1	K27ac	Tbx21-2	3.80166992152973e-10
0 rows

...

120	SM_Th2_2_K9me3	SM	Th2	2	K9me3	Tbx21-21	4.18993008961981e-10
'120', 'SM_Th2_2_K9me3', 'SM', 'Th2', '2', 'K9me3', 'Tbx21-21', '4.18993008961981e-10'
1 rows