$ perl -E '
    use Data::Printer;
    my @x = (qw{a b c d e}, [1,2,3]);
    say @x;
    p @x;
'
abcdeARRAY(0xa00003bc8)
[
    [0] "a",
    [1] "b",
    [2] "c",
    [3] "d",
    [4] "e",
    [5] [
            [0] 1,
            [1] 2,
            [2] 3
        ]
]