What must I do to prevent Perl from complaining that "using a hash as a reference is deprecated"?

Question

The code below is from an old Perl script. ``` print "%{@{$noss}[$i]}->{$sector}

"; ``` How should I rewrite the code above so that Perl does not complain that "using a hash as a reference is deprecated"? I have tried all sorts of way but I still couldn't quite get the hang of what the Perl compiler want me to do.

Accepted Answer

```
print "%{@{$noss}[$i]}->{$sector}

";
```

should be nothing more than

```
print "$noss->[$i]{$sector}

";
```

or even

```
print "$$noss[$i]{$sector}

";
```

without all that rigamarole.

What must I do to prevent Perl from complaining that "using a hash as a reference is deprecated"?

Solution

Problem