printf "numbers: %s\n", join ", ", qw(one two three four five);
printf "fruits: %s\n", join ", ", qw(bananar perl apple);