my %switch = (
 10 => sub { print 10; },
 20 => sub { print 20; },
);

$switch{$given}->();