in reply to Re^2: split and uninitialized variablesin thread split and uninitialized variables
The ( '' ) x 3 solution doesn't.
Another option:
my ( $foo, $bar, $baz ); $_ .= '' for ( $foo, $bar, $baz ) = split /,/; [download]
Makeshifts last the longest.