my $v = 'abc';
my $n = 5;
my $s = $v x $n;
print "$s\n";