chomp( @list = ); print "Item: ", ++$count, ", Value: $_\n" foreach @list; #### Item: 1, Value: 2 Item: 2, Value: 3 Item: 3, Value: 4 #### Item: 1, Value: 2 3 4 #### chomp( @input = ); push( @list, split( /\s+/, $_ ) ) foreach @input; foreach ( @list ) { print "$names[$_-1]\n"; }