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