#!/usr/bin/perl
use strict;
use warnings;
use MyConsts;

print CONST1, "\n";

# or some weirder cases (just to illustrate,
# I understand that you only need integers)
print "@{CONST4()}\n";     # -> foo bar
print "@{[CONST5]}\n";     # -> foo bar
print +(CONST5)[1], "\n";  # -> bar