my %events = (
    512 => sub { print "mouse over icon\n" },
    513 => sub { print "left button clicked\n"; },
    # et cetera
);

if (exists $events{$msg}) {
    $events{$msg}->();
}