my @xpid = shift;

##</code><code>##

    my $xpid_ref = shift;

##</code><code>##

    foreach my $item (@$xpid_ref) {

##</code><code>##

    foreach my $element (@array)

##</code><code>##

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

##</code><code>##

    return join "" => @{+shift}