#!/usr/bin/perl

$func_refs = { '1' => \&f1, '2' => \&f2, '3' => \&f3 };

&{ $func_refs->{$arg} };

sub f1() {
   #do something
}

sub f2() {
   # do something
}
.......