&capitalise( \%horoscopes );

sub capitalise {
  my $values = shift;
  foreach ( keys ( %{$values} ) ) {
  ....
...this is not tested...