perl -ne 'printf("%10s %s \n", (split/,/)[4], (split/,/[0]);' file.csv