my $data = 3;

foo  {
  my ($data) = @_;
  $$data++;
}