#!/usr/bin/perl

use warnings;
use strict;

my $start = time;
for (my $n = 0; $n < 100; $n++) {
    my $f = $n - 25;
    my $tmp = 50 - $n;
    my $b = $tmp * $tmp;

    my $ans = $n * $n;
    my $ans2 = sprintf("%02d%02d",$f,$b);
    #my $ans2 = 100*$f+$b;
    print "$n^2 = $ans => $ans2\n" unless $ans == $ans2;
}
my $end = time - $start;

print "Execution Time: $end";