use strict;
use warnings;

%::fnc = (a => sub{}, b => sub{}, c=> sub{});
my @in = ('a', 'b', 'c');

$::fnc{ shift @in }->(@in);

print "@in";

b c