$_ = &fetch_input;

$picked{$_}++ foreach split //;
&do_a if $picked{a};
&do_b if $picked{b};
...

# or, simpler:

$_ = &fetch_input;
&do_a if /a/;
&do_b if /b/;
...