Oh, then just make your sub an lvalue sub like so:

sub my_vec : lvalue { vec($_[0],$_[1],$_[2]) }
[download]

Caveat scriptor, I didn't test this at all and I'm sure you need a modernish perl for it to work.