Problem in setting VSA in perl script