foreach my $sql (@sql) {
       unless ($sth=run_sql($sql)){
            die "Failed in processing \"".$sql."\"\n";
	}
}
#Use them like this...
my $result = $sth->fetchall_arrayref;