use strict; use List::Compare::Functional qw(:originals :aliases); my @argen = (1..20); map{s/^/1./} @argen; #To create the dummy array having all the elements with the increment value and the last element value my @arin=("1.1","1.2","1.3","1.4","1.5","1.7","1.10"); #Consider the element in string, if not it will treat "1.10" as "1.1" my @ardif = get_unique( [ \@argen, \@arin ] ); #it gives the elements present in the first but not present in second if(@ardif){ $"=", "; print "The missing elements are: @ardif"; }