my $var_cell = length $var_cellname;
  my $var_cdr = length $var_cdrcellname;