my @level = @$level_ref;

##</code><code>##

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

##</code><code>##

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