perl variable in wrong place error....