#! perl -w
 my @dbs = <DATA>; 
 my $db= "\n";

print "Select DB from:\n @dbs or Q to quit:" 
      and $db = uc(<>) 
          while( $db eq "\n" || "@dbs\nQ\n" !~ m/$db/s);
chomp $db;

$db eq 'Q' and die "Quiting...\n";

print "\n$db selected\n";

__DATA__
DB1
DB2