sub bar {
   my $title = shift;
   my %config = %{ shift(@_) };
   ...
}
bar($title, \%config);