while ( length $field2 < 4 ) { $field2  = "0" . $field2; }