Experimental values on scalar is now forbidden - perl
<p>Experimental values on scalar is now forbidden in old software:</p>

<pre><code>$link = Winners::Links-&gt;new();
my @fields = $link-&gt;column_names;     
foreach my $field ( values @fields[0]) {
</code></pre>

<p>I tried to make :</p>

<pre><code> foreach my $field ( values {@fields[0]}) {

 foreach my $field ( values %{@fields[0]}) {

 foreach my $field ( values %@fields[0]) {
</code></pre>

<p>Non of them works. Any Idea how it should be done? Thx.</p>

<p>Here is more on @fields object definition:</p>

<pre><code>[[
  'id',
  'entry',
  'selection',
  'status'
]]
</code></pre>