my $x = ['a', 'b', 'c', 'd', 'e'];

my $i = $ x -> [ 4 ];
my $j = "$ x -> [ 4 ]";

print "$i\n";
print "$j\n";