What was the value of $uid before and after chomp? DDumper it

 dd( $uid ); ...


sub dd {
  use Data::Dumper;
  print Data::Dumper->new([@_])->Sortkeys(1)
    ->Indent(1)->Useqq(1)->Dump . "\n";
}
[download]