Help for this page
if (/>(.*)/) { ... } } #e print $_ . "\n" if $x == 0; #e
if (defined $hash1{$list{$1}})