my $foo = 'bar';
$foo->{'key'} = 'value';
# or likely
for my $k (values %{$foo}){ ... }