sub map_triples(&@) {
  my $f = shift;
  my @res;

  no strict 'refs';
  my $caller = caller;
  local(*{$caller."::a"}) = \my $a;
  local(*{$caller."::b"}) = \my $b;
  local(*{$caller."::c"}) = \my $c;

  push @res, $f->($a,$b,$c) while ($a, $b, $c) = splice @_, 0, 3;
  return @res;
}

use 5.010;
use warnings;
use strict;
our $c;

say for map_triples { $a + $b + $c } 1..12;