Select Code to Download

if ( $document_reference ) {
    my @docs = split /\|/, $document_reference;

...
        $where{DocumentRef} = $document_reference;
    }
}