sub readDB{
	my $DBtoread = shift;
	my $FILEREAD;
	
	open($FILEREAD, "+<", "./database/$DBtoread");
	
	my @DBread = <$FILEREAD>;
	
	close($FILEREAD);
	return(@DBread);
}