Select Code to Download

@my_filtered_keys = grep {exists $x{$_} && $x{$_} =~ /Yeah hoo!/} 1..1
+0;

@my_filtered_vals = map {exists $x{$_} && $x{$_} =~ /Yeah hoo!/ ? $x{$
+_} : ()} 1..10;

#!/usr/bin/perl -wT
use strict;
...
X:10
X:5
X:6