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