for my $num (2..2) {
    $s = sqrt($num * 1);
    print Dumper(\$s);
}