$suka = {a => 1, b => 2};

if ($suka) {
    $suka = {c => 3, d => 4};
}

my $sub = sub { $suka = {e => 5}};
$sub->();

#namespace pizdanah

$aer = {};