my @data = <DATA>;

my $result = timethese($count, {
   i_sep   =>
      sub { my %heap; foreach (@data) { i_sep(  \%heap, $_) } },
   i_peers =>
      sub { my %heap; foreach (@data) { i_peers(\%heap, $_) } },
   i_noop  =>
      sub { my %heap; foreach (@data) { i_noop( \%heap, $_) } },
});