#!/usr/bin/perl -w
use strict;
$|++;

my $dispatch;
{
    my $fruit = [ qw|apple orange pear| ];
    $dispatch = {
        add => sub { return add_entry( $fruit ) },
    };
}

print scalar localtime, "\n";
sleep 1;
print &{ $dispatch->{add} }, " <-- from sub \n";;
sleep 1;
print scalar localtime, "\n";

sub add_entry{
    print scalar localtime, "$_[0] <--   in sub \n";
    sleep 1;
    return scalar localtime;
}

__END__