如何从Perl中的CSV文件中过滤掉特定列？

I am just a beginner in Perl and need some help in filtering columns using a Perl script. I have about 10 columns separated by comma in a file and I need to keep 5 columns in that file and get rid of every other columns from that file. How do we achieve this? I am just a beginner in Perl and need some help