@list = <>;
...
$number = <>;  <strike># this will never be reached (or won't read anything)</strike>