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