Syntactical differences aside, that's almost exactly how I've been writing code for a long time with the exception of the my statement.
my $newyork;
my $miami;
if ( exp ) {
statement;
} else {
statement;
}
Although now with 5.10 you could do
while ( <DATA> ) {
given( $_ ) {
when ( $_ =~ /^NEW YORK:..../ ) {
expression;
}
...
default {
...
}
}
}
Which is pretty nifty, imo.
I'm sure there's even more compact ways you can say that as well. As a matter of practice though, as long as I can come back in 6 months and figure out what I was doing in roughly 30 seconds, I personally don't care about the style.
Though, for some inexplicable reason, this always bugs me and I find it thoroughly distracting.
while ( <DATA> )
{
if ( expr )
{
expr
}
}