Select Code to Download

#!/usr/bin/perl -w
#
...
print Dumper(@diff),"\n";

Array 1:
$VAR1 = 'CUSTORDS.DAT';
...
Difference:
$VAR1 = 'ONHAND.DAT';