foreach (@array, 1) {
    #push @array,'a';#replace following statement with this one
    @array = (@array,'a');
    print;
}
__END__
a
1