I tried using "long unsigned", and it works for me:

my $var1alt = sprintf("%014lu", $var1);
my $var2alt = sprintf("%014lu", $var2);
[download]