$email_body.="calling HANDLE_PERSONAL_INFORMATION\n";
  HANDLE_PERSONAL_INFORMATION();
                             ^^
  ...
  sub HANDLE_PERSONAL_INFORMATION {
      my $order_num = $_[0];
                      ^^^^^^