A simple function to print out the contents a perl array on a single line.

oneLineArray.pl

sub oneLineArray
{
  my $a = shift @_;
  my @array = @$a;
    print "(";
    foreach(@array){
    print " " . $_;
      if($_ ne $array[$#array]){
          print ",";
      }
  }
  print " )\n";
}