#!/usr/bin/perl

use strict;

use constant { CLOUD => 9,
               HELL  => 'sytem administration' };
use constant   SINS  => qw(pride envy gluttony lust anger greed sloth);

dump_consts();

sub dump_consts {

no strict 'refs';

print "SINS list:\t@{[SINS]}\n\n";

foreach my $const (keys %constant::declared) {
    printf "%-15s%6s => %s\n", 'eval:', $const, eval $const;
    printf "%-15s%6s => %s\n", 'symref:', $const, {$const};
    printf "%-15s%6s => %s\n", 'symref fqn:', $const, {"constant::$const"};
    printf "%-15s%6s => %s\n", 'symref hash:', 
                                $const, join(' ', values %{$const});
}
}