Select Code to Download

#!/usr/bin/perl -w
use strict;
...

# But this would work fine:
#$two->( map { 1 && anda => $_ } @one );