print {$FILE} pack 'C4', @arr;

##</code><code>##

print {$FILE} pack 'C', $_ for @arr;