grep {
       print $elements[0], '$_', "\n";
       $elements[0] eq '$_'
     }
@keys;