use strict; use warnings; my @in = split(' ', ); print int($in[0]+$in[0]*$in[1]/100);