#!/usr/bin/perl

use strict;

my $list = undef;
my $item = $list->[0]; #ok

my $list = get_no_list();
my $item = $list->[0]; #ok

my $item = get_no_list()->[0]; #no way

sub get_no_list { return; }