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

foreach my $friend ( @{ $friends } ) {
    ...
}