#!/usr/bin/perl -l

use strict;   # !!!
use warnings;

my $module = bless { port_list => [qw(a b c)] }, "Foo";

print "size=", scalar @{$module->{port_list}};   # ok
print "size=", scalar @{$module{port_list}};     # not ok!