Select Code to Download

$ perl -Mstrict -Mdiagnostics -E 'my $a = "3"; say $a->[0];'
Can't use string ("3") as an ARRAY ref while "strict refs" in use at -
+e line 1 (#1)
...
    
Uncaught exception from user code:
    Can't use string ("3") as an ARRAY ref while "strict refs" in use 
+at -e line 1.