my %h = ();
$h{ /\w$/g  # <-- HERE
   } += $_ while <DATA>;
{local $, = "\n"; print %h} 

__DATA__
5 R
3 T
9 T
2 R