1
2
3
4
5
6
7
8
9
10
11
#Author here, let me explain.
#We create an array of strings and print it. We print the string in position 1. This array starts at 0.
#Changing $[ (normally 0) changes what Perl arrays start at. I am not shitting you. We change it so arrays are 1-indexed, and then fetch 1 in the index, which was 0 before we changed the index.
#Seriously Larry?

@greetings = ("bonjour", "hello", "dobry den", "guten tag");
print $greetings[1]; # get the string that's 1 in the index
print "\n";
$[ = 1; # wtf
print $greetings[1]; # now 1 is the start of the index, so...
print "\n";