sub build_evntype { my @event_entries; my @event_list=("Event1", "Event2"); my $p_event = shift; for (my $i=0; $i<=$#event_list; $i++) { my $event_data={}; $$event_data{"t_event"}=$event_list[$i]; $$event_data{"n_event"}=$i+1; if ($i+1 == $p_event) { $$event_data{"sel"} = "selected"; } push (@event_entries, $event_data); } return \@event_entries; }