foreach (@results)
{
	if(not($_ eq $old))
	{
        print "$_\n"
  }
$old = $_;
}