my $what = ram;
 /($what){3}/;
print $what;