Select Code to Download

my $str = 'ab';
$str x= 2;
print $str;
# 'abab'

#!/usr/bin/perl

...

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

a
b
a
b