if (defined($$l_Name_ref)) {
  my $l_Name = $$l_Name_ref;
  if ($l_Name =~ /^[a-zA-Z]\w+$/) {
    ...