my @listone = (['010000','010110',6],['010200','010210',5],['012350','020012',3]); my @listtwo = (['010005','010015',1],['010207','010211',4],['012355','020003',1]);