my @callbacks = (
  sub { print "one\n" },
  sub { print "two\n"; $_ = "three"; }
);

print "@callbacks\n";
for (@callbacks) { $_->() }
print "@callbacks\n";