#!/usr/bin/perl -w

use strict;

use vars qw(%bar);

$bar{foo} = sub { print "hello\n"};

callif($bar{foo});
callif($bar{quux});


sub callif
{
  my $var = shift;
  $var->(@_)
      if($var);
}