### foo.pl ###

my @menu;
push @menu, { item => $_, selected => $_ eq $state } for 1..6;
$t->param( menu => \@menu );