%radiobutton=( P1 => [ 3, 'Open P1 Bugs' ], P2 => ... ); ($rec_type,$y_label)= @{ $radiobutton{ param('P1P2_bugs') } };