# Procesa una fila cada vez while (my $siguiente = $resultados->hash) { say $siguiente->{dinero}; }