my %data;
my $myObj = new test::mod1();
%data = $myObj->prepare(%data);

-------------------------


package test::mod1;    
sub new
{
    my ($class_name, $dql) = @_;
    my $internalData = {dql => $dql};
    bless($internalData, $class_name);
    return $internalData;
}
sub prepare
{
    my ($internalData, %record) = @_;
    return %record;
}
[download]

this is working... but i don't know how.. constructor how works ???