title: Perl: Dealing with "Can't use string XX as an ARRAY ref while "strict refs"" warning
body: <p>I have</p>
  
  <pre><code> my $test_case_list  = [
       +{     
           label =&gt; &amp;config-&gt;current-&gt;{'DBI'}[0],
           expected =&gt; 'dbi:mysql:dbname=investometrica',
        },     
        +{     
            label =&gt; &amp;config-&gt;current-&gt;{'maintenance_file_path'}[0],
            expected =&gt; '/var/tmp/',
        },     
    ];         
  
  
    for my $test_case_item (@$test_case_list) {
    my $label = @{ $test_case_item-&gt;{label} };
    my $expected = @{ $test_case_item-&gt;{expected} };
    is ( $label, $expected, "Match");                                                                                                                                                                                 
    } 
  </code></pre>
  
  <p>This gives me an awful warning:</p>
  
  <p>Can't use string ("dbi:mysql:dbname=investometrica") as an ARRAY ref while "strict refs" in use at config.t line 25.</p>
  
  <p>What am I doing wrong?</p>