perl -F, -lane 'if($.!=1){print join ",",@F[2,3,4];}'
Rank,Name,School,Major,Year 1,John,Harvard,Computer Science,3 2,Bill,Yale,Political Science,4 3,Mark,Stanford,Biology,1 4,Jane,Princeton,Electrical Engineering,3 5,Alex,MIT,Management Economics,2
Harvard,Computer Science,3 Yale,Political Science,4 Stanford,Biology,1 Princeton,Electrical Engineering,3 MIT,Management Economics,2