Select Code to Download

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

#!/usr/bin/perl -w
use strict;
...
          '3' => 1,
          '2' => 1
        };