Not that it matters much, but your last ; was enclosing your foreach statement and not the $x+=$_ as I would suppose you wanted. I think one liners are cool, but you really gotta double check, cause its easy to misplace a comma, period or a bracket.

#!/home/bbq/bin/perl
# Trust no1!