my $database = '...';
my $user = '...';
my $PASSWD = '';
open(my $fh, '<', 'password_file') or die("open: $!\n");
while (<$fh>) {
   chomp;
   $PASSWD = (split /:/)[2] if /$database/ && /$user/;
}