my @cb = (\&callback);
$_->() foreach (@cb);
sub callback {
  open(my $fh, "/tmp/somefile") or die;
  while(<$fh>) {
    print "orange!\n" if /red/;
  }
}