What do you mean by "single quotes function"? It will help us if you can post the problematic loop with the function, ideally together with the data you want to pass to it. Something like the following:

#!perl -w
use strict;

# This would come from the database
my @data = (
    ['Hello','World',1,2,3,4,5],
    ['Hello','Pakeidoprek,6,7,8,9,0],
);

while( my $item = shift @data) {
    ... problematic part ...
};
[download]

i have parameter content in my modules, and i want to use it in my web page to insert cgi script. the sample of codes like this :

#subroutines
sub content;

#parameter in modules template
my ($self,$content=,) = @_;

#scalar placing content
my $html = '';

#body content
$html .='<div>';
$html .=''.$content.'';
$html .='</div>';
#
[download]

# i used the parameter in my web content with single quotes
..
print MODULES::template->content('XXX');
..
[download]

the XXX is this :

print <<EOF;

<thead class="flip-content">
<tr>
<th width="20%"> Students id </th>
<th class="numeric"> First Name </th>
<th class="numeric"> Last Name </th>
<th class="numeric"> Date Of Birth </th>
<th class="numeric"> Year In </th>
<th class="numeric"> Password </th>
<th class="numeric"> Email </th>
<th class="numeric"> Telepon </th>
</tr>
</thead>

EOF
while (my @row_array = $sth->fetchrow_array()) {
print <<EOF;
<tbody>
   <tr>
     <td> $row_array[0] </td>
     <td> $row_array[1] </td>
     <td> $row_array[2] </td>
     <td> $row_array[3] </td>
     <td> $row_array[4] </td>
     <td> $row_array[5] </td>
     <td> $row_array[6] </td>
     <td> $row_array[7] </td>
   </tr>
</tbody>
EOF
}
print"</table>";
[download]

It sounds like you want it to continue to work with a single-quoted "heredoc", i.e.:

print <<'EOF';
[download]

May I suggest an alternative , more efficient (for the programmer) syntax to get the results you want, while avoiding the "heredoc" syntax that you are having trouble with :

use CGI;

my $q = CGI::->new();

print $q->start_table($q->caption("table Caption")), "\n",
      $q->thead({-class=>"flip-content"},
                $q->Tr($q->td({-width=>"20%"},"Students id") ,
                 map {$q->td({-class=>"numeric"}, $_). "\n"}
                   ("First Name", "Last Name", "Date Of Birth", 
                    "Year In", "Password", "Email","Telepon")
                 )), "\n",
      $q->start_tbody(),"\n";

while (my @row_array = $sth->fetchrow_array()){ 
   print $q->Tr(
               map {$q->td($_) . "\n"} @row_array
               ),"\n";

}

print $q->end_tbody(),"\n",$q->end_table(),"\n";
[download]

wow it's great format. i will try it sir :)