my $newyork;
my $miami;

if ( exp ) {
  statement;
} else {
  statement;
}

##</code><code>##

while ( <DATA> ) {
  given( $_ ) {
    when ( $_ =~ /^NEW YORK:..../ ) {
      expression;
    }
    ...
    default {
       ...
    }
  }
}

##</code><code>##

while ( <DATA> )
{
  if ( expr )
  {
    expr
  }
}