>perl -MData::Dumper -e"while (<{,0,a}>) { print Dumper $_ }"
$VAR1 = '';
$VAR1 = '0';
$VAR1 = 'a';