Select Code to Download

$var1={

...
                    }................
                    .................
             };

    #!/usr/bin/perl
use warnings;
...
    [% END %]
      [% END %]
\end{document}

if there is three persons under employee it printing like this.

...
if only one employee name is there like this 

   person address1.

[% FOREACH comp IN company %]
    [% comp.name %] 
...
     [% END %]
    [% END %]
      [% END %]

if  one employee name under employee tag is there like this 

...
     person address1, person1 address or person1 address.
     person address2, person2 address or person2 address.
     person address3, person3 address or person3 address.