Perl treats 25_000_000 as integer. To print it correctly, you should do something like this:

print "25_000_000", " ", -4, "\n";
[download]