Help for this page
#!usr/bin/perl while(<>) { ... } print "@list2\n";
#!usr/bin/perl ... } print "@list2\n";