my $data = [ 1 .. 10 ];

foreach $k( @$data ){
  print <<_WML_

Blah blah $k

_WML_

}
__END__

Blah blah 1


Blah blah 2


Blah blah 3


Blah blah 4


Blah blah 5


Blah blah 6


Blah blah 7


Blah blah 8


Blah blah 9


Blah blah 10