foreach (<FH>){
print $_;
}