List counting in perl

This code counts the number of rows with each new value in column three of my data

#!/usr/bin/perl
use strict;
use warnings;
open M,"<master.vim" or die "master.vim $!";
my %c;

 /^101,(\d+)/ &&  $c{$1}++ while <M>;

close M;
open C,">count.txt" or die "count.txt $!";
print C "$c{$_}\n" for sort{$c{$b}<=>$c{$a}}keys %c;
close C;

Could the code be altered to do the same thing, but for the fourth column ?
Europa MacDonaldChief slayer of dragonsAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
ozoConnect With a Mentor Commented:
/^101,[^,]*,[^,]*,(\d+)/
0
 
Europa MacDonaldChief slayer of dragonsAuthor Commented:
great thankyou
0
All Courses

From novice to tech pro — start learning today.