如何输出引号中包含的每个Perl数组元素？

#!/usr/bin/perl
use strict;
use warnings;

my @array = ('apple', 'banana', 'cherry');

foreach my $element (@array) {
    print "$element\n";
}

print "'$element'\n";