while(<FH>){
my($a,$b,$c)= split(',' , $_);

push( @Data, {
		      'meth' => $a,
                      'list'      => $b,
                      'count'   => $c
        } );
}