Select Code to Download

# @where_clause has been fully defined

...

my $sth->prepare( $query ) or die #stuff;
$sth->execute( ) or die #stuff;

# From your code above:
if (defined($allocated_to) && $allocated_to ne '') {
...

my $sth->prepare( $query ) or die #stuff;
$sth->execute( @values ) or die #stuff;