if ($choice eq "submit")            # customer submitted order number
{
    get_customer ();
      print_results ();
}
else
...

becomes:

if ($choice eq "submit")            # customer submitted order number
{
    my $cutomer = get_customer($customer_id);
    print_results($customer);
}
else
...