in reply to Printing particular column is not working
Since it looks like your source file is a CSV, I'd recommend looking into using Text::CSV. Recently, I found Tie::Array::CSV, which does leverage Text::CSV and Tie::File but presents an interface that I personally like better than using Text::CSV directly.
In Section
Seekers of Perl Wisdom