Select Code to Download

    my @xpid = shift;

    my $xpid_ref = shift;

    foreach my $item (@$xpid_ref) {

    foreach my $element (@array)

    foreach my $item (@$xpid_ref) {
        $return .= $item;
    }

    return join "" => @{+shift}