my @x = qw{a b c}: # slow release of shift: got ':' instead of ';'
my $y - $x[2];     # hit adjacent key: got '-' instead of '='