my $dbh = DBI->connect("dbi:Pg:port=5432 host=$pghost user=$login password=$pwd dbname=$dbname") or die "Dont connect to DB:$DBI::errstr\n"; my $sth=$dbh->do("SET DATESTYLE TO 'ISO'"); my $sth=$dbh->do("SET CLIENT_ENCODING TO 'WIN'"); my $sth=$dbh->prepare("select prinadl from prinadleg where prinadl~*'From site"); $sth->ехесute(); my $clients={}; my $clients->{'prinadl'} = (my $array_ref=$sth->fetchrow_arrayref)[0]; ............................................вот эта строка интересует print "$array_ref"; $sth->finish();