Hmm. Let's see.

• You forgot to add #!/usr/bin/perl at the top?
• You named your subroutine ALL_CAPS
• You have poor/no indentation
• You call Mail::Address->parse() but you forgot to use Mail::Address?

How about this. You tell us what's wrong, i.e. what does it do? What is different about what it does from what you want it to do? What exact error messages or unexpected output does it produce?