my %args = (profile => 'foo');
  %ta = map { $_ => $args{$_} } grep { $args{$_ } } keys %args{'profile', 'user', 'password'};