Select Code to Download

#!/usr/bin/perl

...
    print( "$array_name contains $to_find\n" );
  }
}

   flasha => { map { ($_, undef) } qw(dd1 dd2 dd3 dd4) },