my ($var)=@_;