use Set::CrossProduct;

sub casify {
    my @letters = map [ uc $_, lc $_ ], split //, $_[ 0 ];
    return(
        map join( '', @$_ ),
        Set::CrossProduct->new( \@letters )->combinations;
    );
}