__Array_DATA__ 4930 49201 49202 49203 492041 492043 492045 492051 492052 492053 492054 492056 492058 492064 492065 492066 49208 49209 492102 492103 492104 ##

##

4920911223344
492065577883667  
49206656672

##

##

49209;11223344
492065;577883667  
492066;56672

##

##

use strict;
use warnings;
use File::Spec;

open(my $fh_in, '<', 'Script\\onkz.txt') or die("open failed: $!");
open(INFILE, '<', 'data.txt') or die("open failed: $!");

my @ONKZ = <$fh_in>;
my $filterregex = join('|',@ONKZ);

while () {
  if($_ =~ /^($filterregex)/){ 
    print "$&;$'\n"; 
  }
}