http://www.perlmonks.org?node_id=534107

Public Scratchpad

Download, Select Code To D/L

---

my @name= (
    "$Address{Andrew}->{Name}->{First}",
    "$Address{Andrew}->{Name}->{Middle}",
    "$Address{Andrew}->{Name}->{Last}"
);
[download]