my %hash = (
   old => 'Current Device Type',
   new => 'Add Device Type',
);

print radio_group(
   -labels  => \%hash,
   -name    => 'type',
   -values  => [values %hash],
   -default => 'old',
   -onClick => 'alert("Work")',
);