title: Why do I get "can't use string as a SCALAR ref while strict refs" in Perl?
body: <pre><code>use strict;
  my @array=('f1','f2','f3');
  my $dir ='\tmp';
  foreach (@array) {
    my $FH = $_;
    open (&quot;$FH&quot;, &quot;&gt;$dir/${FH}.txt&quot;) or die $!;
  }
  
  foreach (@array) {
    my $FH = $_;
    close($FH);
  }
  </code></pre>
  <p>i got <code>&quot;Can't use string (&quot;f1&quot;) as a symbol ref while &quot;strict refs&quot; in use at bbb.pl line 6.&quot;</code> error . What is the isuse ?</p>