my %dispatchTable = (
   ...
   'Queue Priority' => "\r",
   ...
   );

...

expectSend( 'Queue Priority' );

...

sub expectSend
{
    my $prompt = shift;
    $exp->expect( 10, '-re', $prompt );
    $exp->send( $dispatchTable{ $prompt };
}