sub get_new_confirm_number{
  my @numbers;
  foreach(0..14){ $numbers[$_] = int(rand(10)); }
  my $regnummer = join("", @numbers);
  return $regnummer;
}