use 5.012;
use warnings;
my $what = 'ram' x 3;
print $what, "\n";