Select Code to Download

use strict;
use warnings;
...
    print $fh "@{$found_device{$key}}\n";
}
close $fh or die "Can't close $datafile after update: $!\n";