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

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

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

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

假如单词存在数组＠words中，foreach (@words){if(/\b\w{1}a.*\b){print "$_\t";}}