$ perl -wMstrict -MData::Dump -e 'my @array; dd @array; $_="";
    @array = split(",",$_ ); dd @array'
()
()