However for anything trickier , like removing the null at $array[45] , you want to investigate splice

   @a = grep { $_ ne '' } @data;
[download]