Remove empty element in array for perl

http://forums.devshed.com/perl-programming-6/delete-empty-array-elements-299537.html

# remove empty elements from array
@data = grep length($_), @data;