foreach $sy (@ex_arrya) {
%cp_samp=map {$_} split/:/, $sy;
}