$_ ne '' and $line = $_ for @data;
初歩的間違い >> 331