for my $num (2..2) {
    $s = sqrt(Math::BigFloat->new($num));
    print Dumper(\$s);
}