my $value = ('a', 'b', 'c', 'd')[1];
say $value;

##</code><code>##

my $keep = ( split /\s+/, $string )[2];