Data Type Perl

#!/usr/bin/perl -w
print 25_000_000, " ", -4, "\n";