#!/usr/bin/env perl

use warnings;
use strict;
use Data::Dumper;
use DBI;

my $config = eval(join '' => <DATA>);

get_values($config);

sub get_values {
  my $config   = shift;

  my $dname    = $config->{db_name};
  my $dhost    = $config->{db_host};

  my $user     = $config->{db_user};
  my $password = $config->{db_pass};

  my $dbh = DBI->connect("dbi:mysql:database=$dname;host=$dhost", $user, $password)  || die "Can't connect to mysql database!";

  # тут хирые выборки
  # .....
  #

  # возвращай указатель на нужную тебе структуру, или печатай прямом тут
  return \@array
  return \%hash
}

__DATA__
# этот файл можно будет сериализовать к примеру в JSON и хранить отдельно от скрипта
{
  db_name => 'DCVBase',
  db_host => `host master.cluster.dcv asu-main.dcv | grep "has address" | cut -d " " -f 4`,

  db_user => 'username',
  db_pass => 'password',
}