implement ppjoin in perl