Someone

#!/usr/bin/perl

use strict;



my  %dispatch = ( 0x01 => sub { print "ein"; } ,
                  0x02 => sub { print "zwei"; },
                  0x03 => sub { print "drei"; },
    );

my $n = 0;

while ($n < 3)
{
    $dispatch{$n}->();
    $n++;
}

1;