$y = 5;
@x = split(/\s+/,'a 'x$y);