use strict;
use warnings;

my %r_name = (
    a => [ 1, 2 ],
    b => [ 3, 3 ],
    c => [ 1, 6 ],
);

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


##</code><code>##

b