my (undef,undef,@fields) = split(/\,/,shift @rows);
my %stats = ();
for my $r(@rows){
        my ($pxname,$svname,@values) = split /\,/,$r;
        for my $f(@fields){
        $stats{$pxname}{$svname}{$f} = shift @values;
   }
}