add vector in  perl