while (<PROJ>) {
        next unless s/^(.*?),\s*//;
        $pr1{$1} = [ split ];

}