foreach my $num (@$arr)
{
  $hr->{$num} =1;
}