package MyModul;

use strict;

sub new {
        my $class = shift;
        my $self = {};
        bless($self, $class);
        #$self->init(@_) # Startparameter nach $self einlesen
        return $self;
}

sub search {
        my $self = shift;
        my $name = shift;
        my $names = {};
        $names->{_NAME_} = $name;
        bless($names);
}

sub get {
        my $names = shift;
        # ich hätte hier gerne noch $self aus new()
        print $names->{_NAME_};
}

1;

use strict;
use MyModul;

my $objekt = MyModul->new;

my $name1 = $objekt->search('Thomas');
my $name2 = $objekt->search('Martin');

print $name1->get,"\n";             #Thomas
print $name2->get,"\n";             #Martin