#!/usr/bin/env perl    

use strict;
use warnings;

use Data::Dumper;

package a;

sub new {
  my $class = shift;
  my $self = {};

  bless $self, $class;
  return $self;
}

package main;

my $obj = a->new;

$obj->{avalue} = 10;

print Dumper($obj);