$aref = ['one', 'two', 'three', 'four'];;
$href = { pop @$aref => 1 };;
$href = { pop @$aref => $href } while @$aref;;

pp $href;;
{ one => { two => { three => { four => 1 } } } }