perl -e '$blub="a b c"; @blub=split(/" "/,$blub); foreach(@blub) {$c++; print "$c $_\n"}' 1 a b c