#!/usr/bin/perl

sub getInfo ($\%) {
    my $scalar = shift;
    my $hash = shift;
    print "scalar = '$scalar'\n";
    print "hash = $hash\n";
    print "$_ => $hash->{$_}\n" for keys %$hash;
}   

my %hash = (foo => 'bar', baz => 'quux');
my $scalar = 'string';

getInfo($scalar,%hash);
__END__

##</code><code>##

getInfo($scalar,%hash);

##</code><code>##

my ( $thescalar, %thehash ) = @_;

##</code><code>##

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

getInfo( $scalar, \%hash );

##</code><code>##

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

getInfo( $scalar, %hash );