foreach my $user_record (@$user_records) {
     
  my ($username, $status) = @$user_record;

   print qq~
    <input type="radio" name="$username" value="set_admin">A
    <input type="radio" name="$username" value="set_not_activated">N
    <input type="radio" name="$username" value="set_activated">Y
    --- [$status] $username<br>
   ~;
}