my %comms = ( 'one' => \&subone,
              'two' => \&subtwo,
);

my $subref = $comms{'one'};
&$subref('item');