Select Code to Download

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

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