#!/usr/bin/perl

my %case=(
  a => sub{ return 1*shift; },
  b => sub{ return 2*shift; },
  c => sub{ return 3*shift; },
  d => sub{ return 4*shift; },
);

sub foo{
  goto $case{chr(rand(4)+97)};
}

print foo(55)."\n";