use strict; 
use warnings;

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

foreach (VALUES) {
    print;
}
[download]

As a side note, in your OP you have used a comma-delimited list with qw delimiters - see the information on Quote and Quote like Operators in perlop. If you are not getting the results you expect, I'd bet that's your issue and use warnings; will tell you as much.

Lastly, since you are trying to use <br> tags, you should read Markup in the Monastery.

++ for kenneth, but I prefer to name the iteration item. This way, if your routine grows larger, it's easy to identify what is what, instead of relying on $_:

#!/usr/bin/perl

use warnings;
use strict;

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

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

Steve