my $var; # Declares a single variable.

##</code><code>##

my $var = "Hello world!\n";
my $var = 10;
my $var = 0;
my $var = "";
my $var = \@some_array;
my $var = \%some_hash;
my $var = \$some_scalar;
my $var = \&some_function;

##</code><code>##

my ( $this, $that );

##</code><code>##

my ( $this, $that ) = ( "the", "other" );

##</code><code>##

my ($var);

##</code><code>##

my ($var) = "This";

##</code><code>##

my ( $this, $that ) = "The other";

##</code><code>##

my @array = ("This", "That", "and", "The", "Other");
my %hash = ( "This" => "That",
             "The"  => "Other" );
my $var = ("This", "That"); # $var now contains "That".
my ( $this, $that ) = \( $the, $other ); # The reference
                  # constructer is distributive and
                  # applies to both items inside the rvalue
                  # list.