I haven't used DB_Files but this is my guess:

try:

(contacts_db($database->{anthony1}))->unpack_name()
[download]

Since contacts_db() returns a reference for you to unpack_name() with, you can simplify this into one statement like the above.

It's untested, but I'm 74.2% sure it will work.

--
Casey
   I am a superhero.