Select Code to Download

for ($self->{data}) {
  $_->{name} = 'spiros';
  $_->{address} = 'london';
}

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