Select Code to Download

#!/usr/bin/perl

...
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;

a+b+a+b

bb

a
b
...
b
a
b

bbbb