请教一下，如何用perl语言实现从一些列单词中找出第二个字母为a的单词

Question

因为之前没有接触过C语言，所以学习perl比较吃力，现在有这个问题，可否麻烦给出具体的编程，谢谢啦！

Answer 1

my @words=qw(word batch thank cat);

for my $word(@words){
if( substr($word,1,1) eq 'a'){
print $word, "\n";
}
}