#!/usr/bin/perl

use strict; 
use warnings 'all'; 
use Devel::Peek;
  
my $yuk_1;
my $yuk_2 = {};
    
print STDERR "\$yuk_1:\n";
Dump ($yuk_1); 
print STDERR "\$yuk_2:\n";
Dump ($yuk_2);