17 my @metatag = ();
 18
 19 for my $i (0..3){
 20
 21   my $var1 = $decoded->{'meta-tags'}[$i]{'id'};
 22   if($var1 =~  m/([0-9a-zA-Z]{9})/ ){
 23   push @metatag => $var1;
 24   my $compid = $var1;
 25   $i++;