#!/usr/bin/perl

use strict;
use warnings;

use constant {
    FOO => 'foo',
    BAR => 'bar'
};

my %mapping = (
    @{[FOO]} => 0,
    @{[BAR]} => 1
);

for my $k (keys %mapping) {
    print "$k\t$mapping{$k}\n";
}