print < ... EOH my @items = ( { text => 'Text inside PopUp', name => 'This link', }, { text => 'Another text inside', name => 'Another link', }, ); foreach my $item (@items) { print < EOT } print < ... EOF

$item->{'name'}