История изменений

use enum qw( :_day=1 mon tues wednes thurs fri satur sun );

map { printf "$_ %i\n", eval $_ if /day/ } keys %main::;

monday 1
tuesday 3
saturday 7
thursday 5
sunday 8
friday 6
wednesday 4

use enum qw( :_day=1 mon tues wednes thurs fri satur sun );

map { printf "$_ %i\n", eval $_ if /day/ } keys %main::;