#!/usr/bin/perl

use locale;
use strict;
use Data::Dumper;

use DBI;

my $sql="select pai,palavra from ramos where pai in (select id from ramos where forma='vp')";
my $rs=DBI->connect("dbi:Pg:dbname=cp","ruivilela");
my $r=$rs->prepare($sql);
$r->execute;
die "Failed: ".$rs->errstr."\n" if (!$r); #Erros ?

my %word;

while (my ($p,$w) = $r->fetchrow){
    $word{"$p"}.=" ".$w;
}
    
print Dumper \%word;