use strict;

{
    package MyObj;

    sub new {
        my %obj; bless( \%obj, $_[0] ); return( \%obj );
    }

    sub items {
        my @things = ( 'key1' => 'v1', key2' => 'v2', );
        return( @things );
    }
}

my $myobj = MyObj->new();
print( "$_\n" ) foreach ( sort keys( $myobj->items() ) );