in reply to a simple matter of elegance

I dislike redoing the "work" to locate $self->{data} each time there. I'd write that as:
for ($self->{data}) { $_->{name} = 'spiros'; $_->{address} = 'london'; }
or even
for ($self->{data}) { @$_{qw(name address)} = qw(spiros london); }

Replies are listed 'Best First'.
Re^2: a simple matter of elegance
by jdporter (Paladin) on Oct 03, 2007 at 13:35 UTC

    Or even

    @{$self->{data}}{qw(name address)} = qw(spiros london);