my ( $foo, $bar, $baz, $wumpus );
# or
# my ( $foo, $bar, $baz, $wumpus ) = ( 5555, "Blossom Garden Rd", "San Jose, CA", 95123 );

if ( $tiddly_rump ) {
    $foo ....
    $bar ....
    $baz ....
    $wumpus ....
}