Help for this page
while(<>) { chomp; push(@{$para{$_}}, $ARGV); }
chomp,push(@{$para{$_}}, $ARGV) for (<>);