# Create Object
my $obj = main->new( '1', 'STORAGE' );

my $string = 'Bad Code?';

# Store string in object
$obj->setter( 'string', $string );

# Later on get string stored in object
my $stored_string = $obj->getter('string');



sub new {
    my $class = shift;
    my $self  = {
        _id  => shift,
        _value=> shift,
    };
    bless $self, $class;
    return $self;
}


sub setter {
    my ( $self, $set_name, $data ) = @_;
    $self->{"_$set_name"} = $data if defined($data);
    return $self->{"_$set_name"};
}


sub getter {
    my ( $self, $get_name ) = @_;
    return $self->{"_$get_name"};
}