package My::Config;

use strict;
use base qw( Class::Singleton );

sub _new_instance {
  my ( $class ) = @_;
  my %data = (
     var1 => 'This is var1',
     var2 => [ 'This', 'is', 'var2' ],
  );
  return bless( \%data, $class );
}

1;

##</code><code>##

  my $conf = My::Config->instance;
  print "Config for var1 is $conf->{var1}\n";