Help for this page
#!/usr/bin/perl ... } close($fh); print "sample = @sample\n good = @good\n";
sample = AA BB good = boy yyy