my @names = ($line =~ m/{(.*?)}/g);
if (@names) {
    push @Customer_list, @names;
}