You are welcome. You can sort within this code, or you could just use sort utility from the shell:

$ perl 1124590.pl
Black, Joe (333)-321-0987
Smith, Sue (333)-321-0534
Brown, Andy (333)-587-0986
Smith, Pam (615)-895-1010


$ perl 1124590.pl | sort
Black, Joe (333)-321-0987
Brown, Andy (333)-587-0986
Smith, Pam (615)-895-1010
Smith, Sue (333)-321-0534
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)