while ($sheets[1]->has_data)
{
  @hsbcdata = ();
  @hsbcdataread = $sheets[1]->next_row; 
  $size = @hsbcdataread;
   
  if ($size < 6)
  {
    $hsbcdataread[5] = "X";
  }

  foreach $_ (@hsbcdataread)
  {
    s/^\s*//;
    s/\s*\r*$//;
    chomp ($_);

    if (/\S+/)
    {
      push (@hsbcdata, $_);
    }

    else
    {
      push (@hsbcdata, "X");
    }
  }
.
.
}