my %radio_field_values = ( 'dashboard1' => 1, 'dashboard2' => 2, 'dashboard3' => 3, 'dashboard4' => 4, 'dashboard5' => 5, ); print radio_group( -name => 'dashboard', -labels => \%radio_field_values, -values => [ keys %radio_field_values ], );