@cleaned = @uncleaned[0, grep {@uncleaned[$i] ne @uncleaned[$i-1]} 1..$#uncleaded];