sub build_url {
   my $account     = shift;
   my $transaction = @_>=4 ? shift : undef;
   my $locaton     = @_>=3 ? shift : undef;
   my $fname       = shift;
   my $lname       = shift;
   ...
}