%out : $key, $value
%ret : $key1, $value1

##</code><code>##

if ( $ret{$value1} eq $out{$key} ){
      print "$ret{$key1}:$ret{$value1}:$out{$value}\n";
}