(perl)ハッシュの復習〜sort,keys,delete関数〜

#! usr/bin/perl

use strict;
use warnings;

my %hash1 = (
    'aa@AA.com'=>'11,aA',
    'bb@BB.com'=>'22,bB',
    'cc@CC.com'=>'33,cC',
    'dd@DD.com'=>'44,dD',
    'ee@EE.com'=>'55,eE',
    'ff@FF.com'=>'66,fF',
    'gg@GG.com'=>'77,gG',
    'hh@HH.com'=>'88,hH',
);

#ハッシュの中身をprint
foreach(keys(%hash1)){
    print "$_→$hash1{$_}\n
}

print "\n";

#値を「,」で区切ってprint
foreach (sort(keys(%hash1))){
    my ($number,$code)=split(/,/,$hash1{$_});
    print "$_の番号は$numberでコードは$codeです。\n";
}

#ハッシュの要素数を数えてみる(キーと値で1組とする)
my @array1=keys(%hash1);
my $array1=@array1;
print "hash1の要素数は$array1\n";

print "\n";

#ハッシュの値を1つ消してみる
print delete $hash1{'cc@CC.com'},"\n";

print "\n";