#!/usr/bin/env perl
use v5.36;

say "Here is ~/.perldb:\n";
say qx(cat ~/.perldb);

my @xx = (qw/a b c d e/);
push @xx, [ 1,2,3 ];

my $foo = 1; # set breakpoint here and issue p @xx

say 'Show result of p @xx when issued from within program';
use Data::Printer;
p @xx;