#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

my $DB = 0 ;
my %DB_list = map { $_ => 1 } qw( DB1 DB2 ) ;

until ( $DB_list{ $DB } ) {
    print "Select a database: " ;
    chomp( $DB = <STDIN> ) ;
    $DB = uc $DB ;
    if ( $DB eq 'Q' ) { print "Quitting...\n" and exit }
}

print "You chose $DB.\n" ;

__END__