foreach my $line (@data){
push (@array , (join($line =~ m/(\d{11})/g , $line =~ m/(\d{6})/g)));
}

##</code><code>##

foreach my $line (@data){
push (@array , (join("\t" , $line =~ m/(\d{11})/g , $line =~ m/(\d{6})/g)));
}