Select Code to Download

my @level = @$level_ref;

$level[$index]{"$employee_no-$emp_company_id"} = 1;
# ... becomes ...
$level_ref->[$index]{"$employee_no-$emp_company_id"} = 1;

my @level = @$level_ref; # delete this!