foreach $it (1..$nt) {
                $tmp  = sprintf "%s", $some_vector[$it-1];
                foreach $k (1..$nvar) {                 
                   $tmp = $tmp.sprintf " %11.4E", $field[$it-1][$k-1];
}
                $tmp = $tmp."\n";
                print OUT $tmp;