How to use CGI.pm in table in perl?

Question

Please help me. I can only see Hilary Duff. I can not see Taylor Momsen.
I would like to use table for that. How should I do? Here is my script.

#!/usr/bin/perl
use Modern::Perl;
use autodie;
use CGI;

my $q = CGI->new;

my %label = (
 celeb => 'Who do you fancy? : ',
 );

my %form = ( 
 celeb => $q->radio_group(-name=>'celeb',
 -values=>['Hilary Duff','Taylor Momsen'],
 -default=>'Hilary Duff'),
 submit => $q->submit,
 reset => $q->reset,
 ); 

say $q->header;
say $q->start_html;
say $q->start_form;
say $q->table(
 $q->Tr([
 $q->td([$label{celeb},$form{celeb}]),
 $q->td([$form{submit},$form{reset}]), 
 ])
 ); 
say $q->end_form;
say $q->submit;
say $q->end_form;
say $q->end_html;

Answer 1

 my %form = (
       celeb => $q->radio_group(-name=>celeb,
                        -values=>[Hilary Duff,Taylor Momsen],
                        -default=>Hilary Duff),

The line above gives a warning message: Odd number of elements in hash assignment.
You can re-write that like so:

my $radio = $q->radio_group(    -name    => celeb,    -values  => [ Hilary Duff, Taylor Momsen ],     -default => Hilary Duff);
my %form = (    celeb  => $radio,    submit => $q->submit,    reset  => $q->reset,);