$single = "12";
@allbonds = qw(12 13 123 12,45 123,45 12,345 1234 12345);
@somebonds = grep /^$single(?:\d|,\d{2})$/o, @allbonds;