use Number::Fraction; my @dimensions = ( 320, 240 ); my $aspect = Number::Fraction->new( @dimensions ); print join('x', @dimensions); print $aspect; print $aspect->to_num;