Select Code to Download

foreach my $friendref ( @{ $VAR1->{ut_response}[0]{friend_list}{friend
+} } )
{
    print "Hi $friendref->{user}\n";
}

@{                  # the array referenced by:
    $VAR1->             # dereference $VAR
...
        {friend_list}   # then get the value of the hash key 'friend_l
+ist'
        {friend}        # then get the value of the hash key 'friend'
 }

my $ut_aref = $VAR1->{ut_response};
my $href = $ut_aref->[0];
...

foreach my $friendref ( @{ $f_aref } )
...