my @out = join (",\n", (map {".$_($_)"} (@myarray)));