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

getInfo( $scalar, %hash );