sub getInfo {
  my ( $thescalar, $thehashref ) = @_;
  ....
}

getInfo( $scalar, \%hash );