@b = map{$_ - $_+1}, @a;