my %queries = (
   T_Doc_Request => qq{select ...},
   N_Doc_Request => qq{select ...},
   ...
);
...
my $sth = $dbh->prepare($queries{$statement});