sub record { ($g,$p)=@_;$w=3;$t=1; $"=int($p/$w);$tT=$p-($" *$w);$;=$g-($"+$tT); ($",$;,$tT); }