#!/usr/bin/perl

use warnings;
use strict;

$\ = $/;

(@_ = ('a' .. 'b')) x= 2;
print for @_;