#!/usr/bin/env perl
use strict;
use warnings;

my $VAR1 = [
          {
            'namespace' => 'urn:oasis:names:tc:SAML:2.0:attrname-format:unspecified',
            'name' => 'First Name',
            'values' => [
                          'user.firstName'
                        ],
            'type' => 'EXPRESSION'
          },
          {
            'namespace' => 'urn:oasis:names:tc:SAML:2.0:attrname-format:unspecified',
            'name' => 'Last Name',
            'values' => [
                          'user.lastName'
                        ],
            'type' => 'EXPRESSION'
          }
        ];

for my $x (@$VAR1) {
    print "Name = $x->{name}, Values = $x->{values}[0]\n";
}