Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
          '2' => 0,
          '5' => 1
        };

#!/usr/bin/perl
use strict;
use warnings;
...
          undef,
          -2
        ];