CREATE TABLE arraytesttable
(
   array_id text NOT NULL, 
   array_values text[] NOT NULL, 
   CONSTRAINT arraytesttable_pk PRIMARY KEY (array_id)
) 
WITH (
  OIDS = FALSE
);

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=MY_DB;host=localhost", 
                       'MY_Server',
                       'VERYSECRET', 
                       {AutoCommit => 0}) 
                   or die("Can't connect");

my $sth = $dbh->prepare_cached("INSERT INTO arraytesttable
                                (array_id, array_values)
                                VALUES (?, ?)")
                   or die($dbh->errstr);

my @english = qw(Hello world);
my @german = qw(Hallo Welt);

$sth->execute('ger', \@german) or die($dbh->errstr);
$sth->execute('eng', \@english) or die($dbh->errstr);
$dbh->commit;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect("dbi:Pg:dbname=MY_DB;host=localhost", 
                       'MY_Server',
                       'VERYSECRET', 
                       {AutoCommit => 0}) 
                   or die("Can't connect");

# SELECT ALL ROWS
my $fullsth = $dbh->prepare_cached("SELECT array_id, array_values
                                    FROM arraytesttable")
                   or die($dbh->errstr);

$fullsth->execute or die($dbh->errstr);
while((my $line = $fullsth->fetchrow_hashref)) {
    print $line->{array_id} . ': ' . join(',', @{$line->{array_values}}) . "\n";
}
$fullsth->finish;

# SELECT BY ARRAY
my $arrsth = $dbh->prepare_cached("SELECT array_id, array_values
                                    FROM arraytesttable
                                    WHERE array_values = ?")
                   or die($dbh->errstr);

my @german = qw(Hallo Welt);
$arrsth->execute(\@german) or die($dbh->errstr);
while((my $line = $arrsth->fetchrow_hashref)) {
    print $line->{array_id} . ': ' . join(',', @{$line->{array_values}}) . "\n";
}
$arrsth->finish;

$dbh->rollback;

##</code><code>##

ger: Hallo,Welt
eng: Hello,world
ger: Hallo,Welt