use strict;
use warnings;
use B::Showlex;

sub dumpit {
    B::Showlex::compile(-newlex,-nosp,'mysub')->()
}

sub mysub {
    my $subvar = 42;
    my @subvar = qw(The quick brown fox);
    my %subvar = qw(red live blue neutral green earth);
    
    return;
}

dumpit();