sub uniquelist

if ( ${$temparry}[$i] =~ /$url/ and ${$temparry}[$i] =~ /\/\?p=[0-9]+$/ ) {