my @jam = ( spit "\t", $ham )[2,3];