тим, у меня есть текстовый файл, созданный с помощьюData::Dumperвдоль линий:

my $x = [ { foo => 'bar', asdf => undef }, 0, -4, [ [] ] ];

Я хотел бы прочитать этот файл обратно и получить$x назад. Я попробовал это:

my $vars;
{
  undef $/;
  $vars = <FILE>;
}

eval $vars;

Но это не сработало -$x не только не определен, когда я пытаюсь использовать его, я получаю предупреждение, что

Глобальный символ $ x требует явного имени пакета.

Какой правильный способ сделать это? (И да, я знаю, что это некрасиво. Это быстрый служебный скрипт, а не, например, система жизнеобеспечения.)