if ($free >= 0) {
     my $amt = $free;
     my $cost = ($amt * 100);
     my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n";
     printf OUT $pfmt, $dates[0], $dates[1], $dates[2], $dates[3], fmt_mdy($dates[4]), fmt_mdy($dates[5]), $diff, $amt, fmt_curr($cost);
        }
   elsif ($free < 0) {
    my $amt = 0;
    my $cost = ($amt * 100);

    my $pfmt = "%-14s %-5s %-8s %-3s %-12s %-12s %-6s %-6s %-6s\n"; 
    printf OUT $pfmt, $dates[0], $dates[1], $dates[2], $dates[3], fmt_mdy($dates[4]), fmt_mdy($dates[5]), $diff, $amt, fmt_curr($cost);
   }