Select Code to Download

#!/usr/bin/perl

...
@hash{1..26} = 'a' .. 'z';
my %want = map { $hash{$_} =~ /c|x/ ? ($_, $hash{$_}) : () } keys %has
+h;
use Data::Dump 'dd'; dd \%want;

{ 3 => "c", 24 => "x" }