if(/>(.*)/){if(defined $list{$1}){print $_. "\n" . $hash1{$list{$1}} . "\n"; $x = 1}else{$x = 0}}

##</code><code>##

print $_. "\n" . $hash1{$list{$1}} . "\n";

##</code><code>##

if(/>(.*)/){if(defined $list{$1}){print $_. "\n" . $hash1{$list{$1}} . "\n"; $x = 1}else{$x = 0}}

##</code><code>##

if (/>(.*)/) {
    if (defined $list{$1}) {
        print $_ . "\n" . $hash1{$list{$1}} . "\n";
        $x = 1;
    }
    else {
        $x = 0;
    }
}

##</code><code>##

print $_, "\n", $hash1{$list{$1}}, "\n";