xfor source.perl for.. Loop One-line