Select Code to Download

$sref = \$string;
foreach $string ( @array_of_strings ) {
    print $$sref;
}

$sref \$string1;
foreach $string2 ( @array_of_strings ) {
    $string1 = $string2;
    print $$sref;
}