One way would be to add Text using the coordinates in the arrows:
Graphics[{Arrow /@ arrows, MapIndexed[Text[#2, #1[[2]] + .05 (#1[[2]] - #1[[1]])] &, arrows]}]
I don't know what labels you want, so I just used MapIndexed because that'll give me an arbitrary label.
