resolver keys @$array que trava no perl 5.10