warn "perfect_shuffle: lists must have equal length\n" unless @foo == @bar;