#!/usr/bin/perl
use 5.020;
use warnings;
%::fnc = (a => sub{}, b => sub{}, c=> sub{});
my @in = ('a', 'b', 'c');
$::fnc
{ shift @in }->(@in);
IyEvdXNyL2Jpbi9wZXJsCnVzZSA1LjAyMDsKdXNlIHdhcm5pbmdzOwoKJTo6Zm5jID0gKGEgPT4gc3Vie30sIGIgPT4gc3Vie30sIGM9PiBzdWJ7fSk7Cm15IEBpbiA9ICgnYScsICdiJywgJ2MnKTsKCiQ6OmZuY3sgc2hpZnQgQGluIH0tPihAaW4pOwoKcHJpbnQgIkBpbiI7Cg==