sub evalop
{
        my (@list) = @{[@{$_[0]}]};
        my $val = shift(@list)->();