#!/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;
}