my( @vals, @odds ); ( $vals[ @vals ], $odds[ @odds ] ) = split( ' ' ) for <$fh>;

##</code><code>##

    my( @vals, @odds ); ( $vals[ @vals ], $odds[ @odds ] ) = split( ' 
+' ) for <$fh>;