foreach my $fil (keys (%dados))