$ perl -I. harness.pl

Leacher::import() : leaching on Person.pm
Leacher::new() : looking for vars in 'Person' using /^address_/ ...
Leacher::new() : nothing left for key after subtracting regex '^address_' from varname Person::address_, skipping that...
Leacher::new() : found variable 'address_3' and adding it with the key '3'.
Leacher::new() : found variable 'address_2' and adding it with the key '2'.
Leacher::new() : found variable 'address_1' and adding it with the key '1'.
vars[1]=11
vars[1]=1222
Leacher::new() : looking for vars in 'Person' using // ...
Leacher::new() : found variable 'VERSION' and adding it with the key 'VERSION'.
Leacher::new() : found variable 'BEGIN' and adding it with the key 'BEGIN'.
Leacher::new() : found variable 'address_' and adding it with the key 'address_'.
Leacher::new() : found variable 'address_3' and adding it with the key 'address_3'.
Leacher::new() : found variable 'address_2' and adding it with the key 'address_2'.
Leacher::new() : found variable 'address_1' and adding it with the key 'address_1'.
vars[1]=1222
vars[1]=666