use strict;
use Data::Dumper;

my (@array,@newarray);

@array=("ABCDEF01","HIJKL678","VWXYZ123H");

foreach my $val (@array) {
        print " USERNAME like '"; print substr($val,0,4); print "%' OR";
}