sum.pl

# 모든 값을 키별로 더해서 합을 구하는데 사용 하는 해쉬
my %sums;

# __DATA__에 정의 되 값을 하나 하나 씩 읽어 들임
while (my $line = <DATA>) {
  # AA 1을 split을 이용해서 스페이스로 나누고 @F에 결과 값을 저장 $F[0]에는 AA가 저장 $F[1]에는 1이 저장됨
  my @F = split / /, $line;

  # 아래를 풀이 하면 $sums{'AA'} += 1 즉 해쉬의 키는 유니크 하기 때문에 F[0]를 키로 이용해서 F[1]을 다 더함
  $sums{$F[0]} += $F[1];
}

# 해쉬 내용 값을 프린트 keys %sums으로 접근해서 해당 키의 값을 가져욤
foreach (sort keys %sums) {
  print("$_ $sums{$_}\n");
}

__DATA__
AA 1  
AA 3  
AA 2  
BB 4  
BB 6