$ perl -wE'
my $foo = { bar => [1,2,3]};
say 1 if defined $foo->{bar}->[42];
say for @{ $foo->{bar} }'
1
2
3