아래와 같이 완료 했습니다. 실무하느라고 감사 인사가 너무 늦었네요ㅜ
아예 초보라서 오래 걸리기도 했습니다 다시한번 도움 주셔서 감사드립니다
use strict;
use warnings;
my @stack;
my $in = ;
my $c;
my @chr_array = split //, $in;
my $value = 0;
my $stackSize = 0;
foreach $c (@chr_array){
push @stack,$c;
$stackSize++;
}
for(my $i = 0; $i < $stackSize; $i++)
{
my $x = pop(@stack);