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