use mapcar;
@a= mapcar {join"-",@_}, \@a, \@b;
[download]

See mapcar -- map for more than one list.

        - tye (but my friends call me "Tye")