our %h = (
  app1=> {
    user => 'foo',
    pass => 'bar'
  }
);

my $app1 = $h{app1};
my @params = ('user', 'pass');
my ( $user, $pass ) = map { $app1->{$_} } @params;