#!/usr/bin/perl

use warnings;
use strict;

use constant VALUES => qw( 1 2 3 4 5 );

for my $value ( VALUES ) {
    print "$value\n";
}