#!/usr/bin/perl
use strict;
use warnings;

# underscores can be put within literal numbers for seperation clarity and readability
my $one = 123456789;
my $two = 123_456_789;
my $three = 1_23_45_67_89;

print "one:   $one\n";
print "two:   $two\n";
print "three: $three\n";

if ( $one == $two && $one == $three )
{
  print "The values are all equal\n";
}
else
{
  print "You should never get here, the world has come to an end!\n";
}