#!/usr/bin/perl -w
use strict;
{
  my %sub;

  $sub{foo} = sub{
    whatever;
  };
  $sub{bar} = sub{
    whatever;
    whatever;
  };
  $sub{bat} = sub{
    whatever;
  };
  $sub{moo} = sub{
    whatever;
    whatever;
    whatever;
  };
}