use strict; use warnings; use Data::Dump qw( pp ); use constant A => "One"; use constant B => "Two"; package Consts { use constant C => "Three"; } pp { main::A => 1, ::B => 2, Consts::C => 3, }; __DATA__ { One => 1, Three => 3, Two => 2 }