#!/afs/athena/contrib/perl5/perl -w

use strict;

sub alpha {
  my @args = map "'$_'", @_;
  warn "alpha( @args )\n";
}

my %FOO = ( 1 => \&alpha, 2 => 'alpha', 3 => \&alpha );

sub beta {
  my @args = map "'$_'", @_;
  warn "beta ( @args )\n";
  goto &{$FOO{$_[1]}};
  warn "Beta ( @args )\n";
}

beta(1..3);
beta(2..5);
beta(5..7);