use Scalar::Util qw(readonly);
...
if (readonly $x) {
  ...
}