my ( $foo, $bar, $baz );
$_ .= '' for ( $foo, $bar, $baz ) = split /,/;