foreach my $line (@$array_ref)
{
   print $line;
}