#!/usr/bin/perl -w
use strict;
my @xpid = ("ahuman","alienh","pmonk");

my $sql = makeSql(\@xpid);
warn "$sql\n";

sub makeSql {
  my @xpid = shift;
  my $return;
  my $i = 0;
  foreach my $item (@xpid) {
    $return .= $xpid[$i];
    $i++;
  }
  return $return;
}

##</code><code>##

Using perl 5.6.1 unless otherwise noted.
Apache 1.3.27 unless otherwise noted.
Redhat 7.1 unless otherwise noted.