for my $key ( @order ) {
    printf POS "%-10s %s\n", $key, substr( $accu{ $key }, 0, 55, '' );
    print POS substr( $accu{ $key }, 0, 66, '' ) while length $accu{ $key };
    print POS '';
}