$hash1{$_->{'three'}} .= $hash1{$_->{'three'}} ?
    '####' . $_->{'four'} :
    join( '<-->', @{$_}{qw/one two four/})
    for @$sur;