$ perl -le'@x = $scalar;    print 0+@x; print $x[0] // "[undef]"'
1
[undef]

$ perl -le'@x = $array[0];  print 0+@x; print $x[0] // "[undef]"'
1
[undef]

$ perl -le'@x = $hash{foo}; print 0+@x; print $x[0] // "[undef]"'
1
[undef]