sub collect_data {

	my ($tab, $row, $cell) = @_;

	# we want table X
	my @tables = $t->look_down(_tag => q{table});
	my $table = $tables[$tab];

	# Xth row
	my @trs = $table->look_down(_tag => q{tr});
	my $tr = $trs[$row];

	# Xth column
	my @tds = $tr->look_down(_tag => q{td});
	my $td = $tds[$cell];

	# get any text  
	my $data = $td->as_text;

	return $data;

}