Someone
public text v1 · immutable#!/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;