Select Code to Download

use strict;
use warnings;
...
my @result = grep {$r_name{$_}[0] eq $r_name{$_}[1]} keys %r_name;
print @result, "\n";

b