Teng sample perl code, to demo join usage.