With deep structures like this you can use a temporary variable to access the bit you are interested in

my $friends = $VAR1->{ut_response}[0]{friend_list}{friend};

foreach my $friend ( @{ $friends } ) {
    ...
}
[download]