#!/usr/bin/perl

use warnings;
use strict;

my $a = 232119 / 100000;
my $b = 232322 / 100000;
print "$a\n";
print "$b\n";
print $a - $b . "\n";

my $c = 232119; 
my $d = 232322;
print "$c\n";
print "$d\n";
my $e = $c - $d;
print "$e\n";
$e = $e / 100000;
print "$e\n";