gistfile1.pl

use strict;
use warnings;
use 5.010;
use Data::Dumper;
use Mojo::UserAgent;
use Mojo::JSON;

my $user = 'xomaa';
my $url  = "https://api.twitter.com/1/favorites.json?count=3&include_entities=1&id=$user";
my $ua   = Mojo::UserAgent->new;
my $result = $ua->get($url)->res->json;

foreach my $tweet (@$result) {
	say 'Text is => ',$tweet->{text};
	say 'Id   is => ',$tweet->{id};
	#обработка ссылок из твита
	if(exists $tweet->{entities}->{urls} && ref $tweet->{entities}->{urls} eq 'ARRAY') {		
		#доп проверка - проходит на УРА!
		if(ref $tweet->{entities}->{urls} eq 'ARRAY') {			
			# печатает "ARRAY"
			say ref $tweet->{entities}->{urls};
			# в этом цикле вылетает с "Not an ARRAY reference at file.pl line 23"
			foreach my $link (@$tweet->{entities}->{urls}){				
				say $link->{expanded_url};
			}
		}
	}
	say "==========================\n";
}

Попробуйте запустить у себя, или туплю где-то или я не знаю уже что и делать =)

Самое интересное, что проверка "ref $tweet->{entities}->{urls} eq 'ARRAY'" проходит, а на цикле отваливается =(

Если перед циклом добавить "say ref $tweet->{entities}->{urls};", выведет "ARRAY" =)

Решено вот так foreach my $link (@{$tweet->{entities}->{urls}}){