use Test2::V0;
use v5.40;

my @list1= qw( K B I S Y A Q );
my @list2= qw( B S N A );
my @list3= qw( Y N Q );

my $combined= fancy_algorithm(\@list1, \@list2, \@list3);
is( $combined, [qw( K B I S Y N A Q )] );