Updated perl file reflecting the p_name as the primary key