for my $article (@{$data->{article}}) {
   print $article->{SKU}[0];
}