$k.=chr(30+pop(@k)+10*pop(@k));