Как в perl получить результат, аналогичный функции extract из PHP

[antonb770]

Приветствую. Как в perl получить результат, аналогичный функции extract из PHP? (c Perl практически не знаком)
Есть:
# $outputfile файл содержит json строку
my $content = read_file($outputfile);

Hужно:
decode_json($content)
раскидать на переменные и их соответствующие значения, как в PHP https://www.php.net/manual/ru/function.extract.php

Подскажите что посмотреть. СПАСИБО.

вот код:

my $content = read_file($inputfile);
my %cfg_from_json = decode_json($content);

if (%cfg_from_json != NULL){
#делаем extract))))
}

[antonb770]

Вышел из положения, все переменные заранее объявлены как our $xxxx, присвоил им соответствующие значения из хэша.

......
our $arr = decode_json($content);
foreach my $key (keys %{$arr->{'cur'}}){
	   $main::key = $arr->{'cur'}->{$key};
}
......

Всем, спасибо. Может кому пригодится)))

[antonb770]

$main::{$key} = \$arr->{'cur'}->{$key};
точнее)