syntax error near unexpected token `)' 
`while (my $var = <STDIN>) '