#!/usr/bin/perl
 
 use strict;
 use warnings;
 
 #
 # Lists
 my %hash = (
 	key		=> 'value',
 	key1	=> 'value1',  # even the last element has a comma
 );
 
 #
 # References
 my $hash_ref = \%hash;
 
 #
 # K&R Style bracketing
 if ( $hash{ getCurrentValue(); } eq 'something' ) {
 	...
 	if ( testCondition(); ) {
 		...
 	}
 }
 elsif ( $hash{ getLastValue(); } eq 'something' ) {
 	...
 }
 else {
 	...
 }
 
 #
 # Competing "C-ish" Standard
 if ( $hash{ getCurrentValue(); } eq 'something' )
 {
 	...
 	if ( textCondition(); )
 	{
 		...
 	}
 }
 elsif ( $hash{ getLastValue(); } eq 'something' )
 {
 	...
 }
 else
 {
 	...
 }