$sar->each {
   my ($time, $p) = @_;
   print ("$time : $p\n");
};

package Sar;
use strict;

sub new {
    my $class = shift;
    bless {
        "time" => { "a" => "1", "b" => "2" }
    }, $class;
}

#↓これはダメ。コードブロックは1番目の仮引数じゃないと
# my $sar = new Sar();
# $sar->bad_each {
#   my ($time, $p) = @_;
#   print ("$time : $p\n");
# };
# とは書けない。
#
# $sar->bad_each( sub {
#   my ($time, $p) = @_;
#   print ("$time : $p\n");
# } );
# でないとコンパイルエラー
sub bad_each ($&){
    my ($this, $yield) = @_;
    my %times = %{$this->{time}};
    map{
        &{$yield}($_, $times{$_})
    } sort keys %times;
    undef;
}

# Perlでコードブロックを使いたいときは、
#メソッドじゃなくて関数として実装するしかない？
# my $sar = new Sar();
# Sar::good_each {
#   my ($time, $p) = @_;
#   print ("$time : $p\n");
# } $sar;
sub good_each (&$) {
    my ($yield, $obj) = @_;
    my %times = %{$obj->{time}};
    map{
        &{$yield}($_, $times{$_})
    }sort keys %times;
    undef;
}

1;

my $sar = new Sar();
    my %times = %{$sar->{time}};
    map {
        print "$_ : $times{$_}\n"
    }sort keys %times;