print pairwise{ no warnings 'once'; "$a $b\n" } @nums, @dat;