Nilton, Esta linha aqui: $c->model('DB::Log')->resultset('Users')->all retorna um array, mas você está atribuindo isso a um escalar (no caso, $rs). Você provavelmente quer: my $rs = $c->model('DB::Log')->resultset('Users'); ;)