foo(  dbh => $dbh, roshambo => 'dynamite'} );
...
sub foo {
  my %args = @_;
  $args{dbh}->prepare...;
}