sub irgendwo {
  my ( $callback ) = @_;
  ...
  $callback->($x, $y);
  ...
}