my @Data = ();
while ( <FH> )
{
    chomp;
    my ( $meth, $list, $count ) = split m{,};
    push @Data, {
       meth  => $meth,
       list  => $list,
       count => $count,
       };
}
@sortedData =
   sort { $a->{ meth } cmp $b->{ meth } }
   @Data;