use strict;
use warnings;

{
    my %hash;

        sub assign_to_hash : lvalue {
            my $key = shift;
            return $hash{ $key };
        }

}

print "Couldn't set value!" unless assign_to_hash('foo') = (['array', 'of', 'values']);
print "Value defined" if defined assign_to_hash('foo');