Select Code to Download

my %hash = map {$_=>1} (0,5,8,15,20);
for my $i (0..30) {
   print "I am number $i\n" if $hash{$i};
}

my %hash = (0  => 1,
            5  => 1,
...
      print "I am number $i\n";
   }
}