#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;
$, = '+';

print qw/a b/ x 2;
print scalar(qw/a b/ x 2);
print for (qw/a b/ x 2) x 2;
print for qw/a b/ x 2 x 2;