#!/usr/local/bin/perl
# Set constants

use strict;
use DBI;

my @array = ('"dbi:Oracle:host=localhost;sid=nms"','user', 'password');
    my $dsn = "@array[0], '@array[1]', '@array[2]'";
    my $dbh = DBI->connect($dsn);
my $sth = $dbh->prepare("select neid from ne_table");
    $sth->execute();
    my $arrayref = $sth->fetchall_arrayref();
    foreach my $aref ( @$arrayref ) {
       print @$aref,"\n";
    }
    $sth->finish();

$dbh->disconnect;