while (defined ($file = <QUOTA1>)) {
$quota = <QUOTA1>;
[download]

$file gets one line, $quota gets the next. And you never use the line in $file

Pretty common mistake - one of Perl's Seven Deadly Sins.