my @comseq = (
        [ 256, '-foo', 'Bar?', "baz\r" ],
        [ 10, '-re', 'Yes or no?', "Can't decide\r" ],
        ...
    );
    for my $com ( @comseq ) {
        my $send = pop @$com;
        $exp->expect( @$com );
        $exp->send( $send );
    }