How do I can create multiple database connection using Perl?

See more:

Perl

MySQL

I want to create multiple database connection in the single subroutine .How can i do it?.Here i had used the same connection twice with two different databases.I am not clear whether is this is the right way to do?Can anyone suggest me the right way to connect multi[le databases in the single sub routine?

What I have tried:

sub connect {	
		$host     = "devgam.spd.analog.com";
		$database = "r_bang_1m" ;
		$user     = "db_cad" ;
		$pw       = "Cad123";
		my $dsn = "DBI:mysql:host=$host";
		my $dbh = DBI->connect($dsn, $user, $pw) ||
		die "ERROR: can't connect to database server\n";
		return $dbh;
		$host     = "devgam.spd.analog.com";
		$database = "r_bang_current" ;
		$user     = "db_cad" ;
		$pw       = "Cad123";
		my $dsn = "DBI:mysql:host=$host";
		my $dbh = DBI->connect($dsn, $user, $pw) ||
		die "ERROR: can't connect to database server\n";
		return $dbh;}