Select Code to Download

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

#!/usr/bin/perl -l

...
    my $ref = \${'str'.$_};
    print "The string is $$ref"; 
}