while (<$file>) {
...
sub fmt_curr {
...
sub fmt_mdy {
...
}