use strict;
my @p = @{ list() };
sub list { return undef; }