#!/usr/bin/perl
use Math::BigFloat;
Math::BigFloat->div_scale(50);
my @values = map {
        my $i = Math::BigFloat->new( 102 );
        scalar $i->bdiv( $_ );
} (900);

for (@values) {
    /\.\d*?(\d+?)\1/;
    print "$_: $1\n"
}