package ttt;
use strict;
use warnings;
our @ISA         = qw(Exporter);
our @EXPORT      = ();
our @EXPORT_OK   = qw(%config get_key);

our %config = (
    'a' => 'test',
);                                                          

BEGIN {
    $config{'key'} = [1,2,3];
}

sub get_key
{
    return @{$config{'key'}};
}

1;