in reply to join function
Perl is of course forgiving but you end up joining an array consisting of only one element...