You should check out Text::Delimited for parsing delimited text!

It allows you use column headers, extract columns, extract it into various datastructures etc... taking away a lot of the pain!

For getting all the columsn back as an array ref (columns in orginal order) see the read() method and it's __DATA__ key, or you can ask for a particular column.

Updated: Last para.