Comparing two files using perl
===

I am having two file A.txt and B.txt. In file A.txt, first filed having number series with 5 digit, in B.txt file whole number is given. If that first 5 digit of File A.txt is not match with second file B.txt, then need to print those numbers in separate file.i.e. numbers in B.txt has to print in another file.

A.txt

81270,UEDP35

81274,UEDP35

87562,UEDP35

89537,UEDP35

90050,UEDP35

99358,UEDP35

99369,UEDP35

99560,UEDP35

99561,UEDP35

B.txt

8127047667

8756209276

9956176149

8127463873

8953713146

9935805068

9005080751

9956088702

9936916718

