Help for this page
#!/usr/bin/perl -l ... } __END__
$dispatch{"test$_"}->() for 1,2;
#!/usr/bin/perl -l ... $_->() for @test; __END__