ref $x eq 'CODE'