for (1..3) {
    no strict 'refs';
    my $ref = \${'str'.$_}; # this creates a hard reference VIA a symbolic reference
    # or:  my $ref = "str$_";  # this is a purely symbolic reference, access is the same as above
    print "The string is $$ref"; 
}