#!/usr/bin/perl -w

use strict;
use Data::Dumper;

&main;
sub main{
  
  my $i = "x";
  my @choices = ("a", "b", "c");

  my %decision_hash = (a => \&mirror_input,
		       b => \&return_reference,
		       c => \&do_stuff);

  foreach my $case(@choices) {
   my  @results = &{$decision_hash{$case}}($i);

   print "$case:";
   print Dumper(@results);
  }
}

sub mirror_input {

  my $input = @_;
  print "input:";
  print Dumper($input);
  print "\n";
  return $input;
}


sub return_reference {
  my $input = @_;
  my %temp;
  $temp{1} = ["z", "x", "y"];
  $temp{2} = ["s", "d", "f"];
  
  return \%temp;
  
}

sub do_stuff {
  my $input = @_;
 
  my $new = "something new";
  return ($new);
  
}