foreach $i ( 0 .. $#temp ) { 
    $data_line = $temp[$i]; 
    $data_line =~ s/^\s+(.*)/$1/; #Remove the leading white spaces 
    @data = split /\s+/, $data_line; 
    $data[$i] = split /\s+/, $data_line; 
  }