my $ut_aref = $VAR1->{ut_response};
my $href = $ut_aref->[0];
my $flist_href = $href->{friend_list};
my $f_aref = $flist_href->{friend};

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