I like the solutions others ofered. I was taking your post literally and solved your specific problem, but it doesnt scale or generalize like the other responders resposes do. So I'm not going to obuscate their good responses with my code.

A couple of minor observations. Your code as posted does not work nor does it produce the output you say it does. First, in the first line you are missing the sigil '$' before arr_ref. Second, all three print lines end with a comma ',' rather than a semi-colon ';'...thus causing the prints to get all fowled up. As I said, those are just four your information; I and the rest of the responders pretty much knew what you probably meant.