Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    my $Uw = $val * $Uf; # HERE
    print Dump($val), "\t Uf = $Uf \t val = ${\$val} \t Uw = $Uw \n";
}

    my $Uw = "$val" * $Uf;