#!/usr/local/bin/perl -wd

use Devel::Peek;

$v = "21.654";
$w = 2;
$x = "";
$x = $w * $v;
Dump( $x );
$x = int($x);
Dump( $x );