my (@data) = split ' ', <>; # ' ' means split on any whitespace.
[download]

Great, thanks a lot. that helped. One more thing for this:

my $data = <STDIN>;
my (@data) = split (" ", $data);

my $n = shift (@data);
my $m = shift (@data);
my $a = shift (@data);

my $ma = $m/$a;
my $na = $n/$a;

if (int($ma) != $ma) {
    $ma = int($ma) +1;          
}

if (int($na) != $na) {
    $na = int($na) +1; 
}

$x = int($ma*$na);
print $x;
[download]

#This script solves the problem of counting the amount of a*a sized block to cover the surface area of the city square, sized n*m.

When i check n = 1000000000, m = 1000000000, a = 1 i get a result x = 1e+18 instead of 1000000000000000000, despite the fact that i use int operator. could anyone help with printing the exact number?

thanks in advance, the rest cases pass ok.

Integer has an upper limit. Perl automatically converts to float if integer cannot be used. I was able to get the desired output with bigint:

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

my ($n, $m, $i) = split ' ', <>;
my $ma = $m / $i;
my $na = $n / $i;
$ma = int($ma) + 1 if int $ma != $ma;
$na = int($na) + 1 if int $na != $na;

use bigint;
my $x = int($ma * $na);
print 0 + $x, "\n";
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Try printf.

--MidLifeXis

# read one line of input
my $line = <STDIN>;
# remove the line ending
chomp $line;

# then either
my ($foo, $bar, $baz, $quux) = split(/ +/, $line);

# or
my (@data) = split(/ +/, $line);

# the latter is better if you don't know how many elements you'll get
[download]