...
{
 no stict 'refs';
 for (1..3) {
     my $ref = \${'str'.$_};
     print "The string is $$ref"; 
 }
}
...