xfore source.perl foreach.. Loop One-line